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EXECUTIVE  SUMMARY 


Hydrazine  is  used  as  a  fuel  component  in  the  Titan  missile  and,  in  a  30  percent  water  mixture, 
as  an  eirergy  source  for  the  emergency  power  unit  in  the  F- 16  aircraft.  The  need  to  transport, 
store,  load  and  unload  hydrazine  in  these  systems  results  in  some  leaks  and  minor  spills.  There  is 
also  the  ever-present  potential  for  a  massive  spill  when  large  quantities  are  involved.  Because 
hydrazine  is  a  toxic  chemical  and  is  a  suspect  human  carcinogen,  there  is  great  concern  that  it  be 
handled  and  transported  safely.  Strict  regulation  have  been  developed  to  ensure  maximum  worker 
and  public  safety  from  exposure  to  hydrazine  vapors. 

This  project  is  the  final  phase  of  a  series  of  laboratory  studies  designed  to  assess  the  potential 
hazards  of  hydrazine  spills  or  leaks  by  characterizing  the  atmospheric  fate  of  the  resulting  fugitive 
vapors.  The  research  has  focused  on  the  role  of  surface-catalyzed  reactions  in  the  natural  sequence 
of  events  which  is  likely  to  occur  under  field  conditions.  Previous  smdies  have  clearly  shown  that 
heterogeneous  processes  control  the  eventual  fate  of  hydrazine  vapors  in  the  air. 

To  ensure  maximum  control  over  experimental  variables,  a  new  reaction  chamber  was 
constructed  for  this  research  effort  This  chamber  was  designed  to  minimize  wall  interactions, 
provide  temperature  control,  eliminate  diffusion  losses,  and  be  evacuable.  These  design  goals 
were  realized  by  constructing  a  spherical  stainless  steel  chamber  and  having  it  Teflon®  coated, 
surrounded  by  heating/cooling  coils,  and  well  insulated.  Chemical  species  concentrations  were 
monitored  with  in  situ  long-path  infirated  spectroscopy. 

The  stability  of  hydrazine  in  the  new  chamber  was  a  factor  of  four  better  than  the  Teflon®-film 
chambers  used  in  previous  work.  However,  there  was  still  substantial  interaction  with  the 
chamber  walls  and  mirrors  especially  in  the  presence  of  oxygen  and  under  humid  conditions. 

These  effects  were  carefully  recorded  and  used  as  a  baseline  for  later  experiments. 

To  characterize  the  reactivity  of  a  specific  type  of  surface,  a  series  of  plates  with  the  surface  in 
questicMi  were  placed  in  a  supporting  rack  inside  the  chamber.  The  surfaces  studied  included: 
Tefion®-coated  aluminum  plates,  black  iron  plates,  corroded  aluminum  plates,  and  F-16  painted 
aluminum  plates.  Time  and  resources  did  not  permit  the  study  of  additional  surfaces  or  the  use  of 
substituted  hydrazine  fuels. 

As  an  integral  part  of  the  experimental  approach  used  in  this  research,  mathematical  models 
were  (teveloped  to  aid  in  the  definition  of  kinetic  reaction  pathways.  These  models  provided  a 
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means  of  evaluating  different  proposed  reaction  pathways  and  assisted  in  experimental  protocol 
development  Earlier  models  which  only  followed  the  concentration  of  one  reactant  were  extended 
to  use  concentration-time  data  from  two  chemical  species. 

The  reactivities  of  the  surfaces  generally  followed  the  patterns  seen  in  previous  studies.  The 
addition  of  Teflon®-coated  plates  to  the  reactor  resulted  in  a  five-fold  increase  in  hydrazine  decay. 
This  increased  by  another  factor  of  two  in  the  presence  of  20  percent  oxygen.  These  results 
demonstrated  that  the  Teflon®  coating  and/or  the  other  surfaces  present  in  the  chamber  still  exerted 
substantial  influence  on  the  chemical  processes  which  occur  therein. 

The  reactivities  of  the  black  iron  and  painted  aluminum  plates  were  about  the  same  and  were 
about  10  times  faster  than  the  baseline  reactivity  of  the  chamber  with  the  additional  Teflon®-coated 
aluminum  plates.  This  result  showed  that  more  reactive  surfaces  did  result  in  a  substantial  increase 
in  the  destruction  of  hydrazine  vapor  under  simulated  atmospheric  conditions.  These  results  were 
also  reflected  in  the  model  fits  to  these  data  where  key  rate  constants  were  much  larger  for  black 
iron  and  painted  aluminum  plates  than  they  were  for  Teflon®-coated  aluminum  plates. 

The  most  reactive  of  all  the  plates  were  the  corroded  aluminum.  This  observation  confirmed 
similar  findings  of  earlier  researchers.  However,  the  present  study  differs  in  the  proposed  reaction 
mechanism  used  to  explain  the  observed  reaction  intermediates. 

The  results  of  this  study  help  to  substantiate  and  extend  the  findings  of  previous  researchers. 
Hydrazine  vapors  may  be  removed  from  the  atmt^phere  by  a  number  of  chemical  and  physical 
{H'ocesses.  For  each  release  scenario,  the  combination  of  these  factors  must  be  carefully 
ccHisidered.  Where  surfaces  are  prominent,  as  in  indoor  or  near-earth  areas,  the  adsorption  and 
subsequent  reactions  of  hydrazine  are  a  major  factor  in  its  removal  firom  the  environment  In  the 
open  air,  homogeneous  processes,  such  as  its  reaction  with  ozone  and  hydroxyl  radicals  are  most 
likely  to  be  the  controlling  removal  factors. 
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SECTION  I 


INTRODUCTION 


A.  OBJECTIVE 

This  research  was  conducted  to  extend  our  knowledge  of  the  chemical  and  physical  processes 
which  control  the  eventual  fate  of  vapor-phase  hydrazine  in  the  environment.  It  included  both 
analytical  measurements  in  a  controUed-environment  chamber  and  the  use  of  computer  models  to 
formulate  and  test  decay  mechanisms. 

Hydrazine  spills  can  occur  during  both  normal  operations  and  in  accidents.  The  vapors  which 
escape  have  a  flnite  lifetime  which  depends  on  their  interactions  with  both  surfaces  and  in  the  open 
atmosphere.  This  study  was  undertaken  in  a  chamber  which  allowed  more  complete  control  of 
critical  experimental  variables  than  was  previously  possible. 


B.  BACKGROUND 

Hydrazine  is  used  extensively  in  small  thrusters  for  satellites,  as  a  fuel  cell  reactant,  in 
emergency  and  auxiliary  power  generating  units,  and  as  a  liquid  rocket  fuel  component  Both 
routing  handling  and  accidental  spills  can  produce  fi^l  vapors  which  constitute  a  substantial  human 
health  risk.  Hydrazine  is  classified  as  an  animal  carcinogen  and  a  suspect  human  carcinogen.  The 
concern  for  its  potential  toxicity  is  reflected  in  is  low  threshold  limit  value  for  exposure  of  100 
parts-per-billion.  This  combination  of  routine  use  and  known  toxicity  has  prompted  a  number  of 
studies  of  the  environmental  fate  of  hydrazine  in  both  soil  and  atmospheric  environments. 

The  relevant  past  research  on  the  atmospheric  fate  of  hydrazine  vapor  has  been  reviewed  in  the 
introduction  of  a  previous  AFESC  technical  report  (Reference  1).  Subsequent  research  was 
conducted  by  Stone  and  Wiseman  (Reference  1)  and  by  Martin,  et  al.  (Reference  2).  The  results 
of  both  research  groups  were  summarized  in  another  publication  (Reference  3).  The  main 
conclusions  of  these  research  efforts  were: 

•  Hydrazine  decay  by  homogeneous  (i.e.,  strictly  gas-phase)  reactions  proceeds  at  a 
negligible  rate  under  normal  atmospheric  conditions. 
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•  Hydrazine  interacts  strongly  with  many  surfaces  including  Teflon®  film.  These 
interactions  are  enhanced  by  the  presence  of  water  vapor  and  are  only  partially 
reversible. 

•  Kinetic  models  which  include  second-order  adsorption  processes  can  successfully 
describe  the  decay  of  hydrazine  as  observed  in  the  Teflon®-film  chambers  including  the 
conditioning  which  occurs  in  sequential  experimental  runs.. 

•  Products  formed  from  the  atmospheric  (surface-catalyzed)  oxidation  of  hydrazine  were 
mainly  water  and  (by  inference)  nitrogen.  Small  amounts  of  ammonia  were  also 
formed  under  some  conditions.  Diimide  (N2H2)  was  detected  in  small  amounts  as  a 
reactive  intermediate  with  some  of  the  high-surface  area  samples  added  to  the 
chambers. 

These  previous  studies  showed  that  both  permeation  and  adsorption  were  important  processes 
in  the  decay  of  hydrazine  vapor.  The  current  study  was  undertaken  to  see  if  a  solid  chamber  could 
give  more  complete  mechanistic  and  kinetic  results  by  enabling  a  greater  degree  of  control  over 
experimental  conditions. 

C.  SCOPE 

This  study  included  the  design  and  construction  of  a  new  controlled-environment  chamber  and 
the  subsequent  characterization  and  calilvation  of  this  chamber.  The  baseline  stability  of  hydrazine 
in  the  chamber  was  determined.  Then  the  effects  of  added  surfaces  (in  the  form  of  thin  metal  plates 
set  inside  the  chamber  in  a  special  rack)  were  determined.  Finally,  additional  efforts  were  devoted 
to  the  development  of  improved  computer  models  to  define  potential  reaction  mechanisms. 
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SECTION  II 


EXPERIMENTAL  PROCEDURES 
A.  SPHERICAL  REACTION  CHAMBER 

1.  Design.  To  overcome  some  experimental  difficulties  encountered  with  the  320- 
liter, Teflon®-film  reaction  chamber  used  in  earlier  laboratory  studies  (Reference  1),  a  new 
controlled-atmosphere  environmental  simulation  chamber  was  constructed.  The  design  and 
construction  details  for  this  chamber  have  been  previously  described  (References  4  and  5)  and  will 
only  be  briefly  outlined  here. 

The  primary  design  consideration  for  this  chamber  was  to  minimize  surface  interactions.  To 
this  end,  a  spherical  design  was  adopted  giving  the  lowest  surface-to-volume  ratio  of  any  simple 
geometrical  solid.  The  chamber  was  also  coated  with  a  10-mil  thick  layer  of  FEP  Teflon®.  The 
size  of  the  chamber  was  chosen  to  give  a  reasonable  tradeoff  between  optical  path  length  and 
internal  volume.  The  choice  of  a  1-meter  diameter  sphere  gave  a  working  optical  path  length  of 
106  meters  while  maintaining  a  manageable  volume  of  about  525  liters. 

2.  Construction.  The  chamber  was  constructed  of  3/16-in  stainless  steel  hemispheres  welded 
together.  Three  12-inch  circular  ports  are  welded  to  corresponding  openings  in  the  chamber  wall. 
Two  are  diametrically  opposed  across  the  horizontal  diameter.  These  contain  mounts  for  the  long- 
path  infrared  optics.  The  third  port  is  placed  at  right  angles  to  the  line  joining  the  other  two.  It  is 
used  for  introducing  surface  samples  into  the  chamber.  There  are  several  other  ports  in  the 
chamber  waU.  One  4-inch  optical  view  ports  is  placed  above  each  of  the  12-inch  mirror  mounting 
ports.  These  facilitate  mirror  alignment  There  are  additional  ports  for  pressure  measuring 
devices,  a  temperature/humidity  probe,  a  stirring  fan,  and  a  high-vacuum  pumping  station.  The 
chamber  is  shown  schematically  in  Figure  1. 

The  chamber  has  copper  coils  welded  to  its  outer  surface  for  temperature  control.  It  is  also 
surrounded  by  1.5  inches  of  Rubatex®  high-density  foam  insolation.  With  the  heating/cooling 
recirculation  unit  operating,  the  chamber  temperature  can  be  varied  from  6.4  °C  to  46.6  ‘C. 
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A  control  panel  and  glass  sample 
introduction  manifold  are  mounted  on  an 
aluminum  frame  which  is  attached  to  the 
chamber  on  the  side  opposite  the  sample 
introduction  port.  The  control  panel 
provides  a  mount  for  the  temperature 
gauge  and  for  two  different  pressure 
gauges.  The  chamber  is  shown 
schematically  from  this  viewpoint  in 
Figure  2. 

The  optical  system  for  the  chamber 
was  designed  to  provide  the  maximum 
possible  pathlength  within  the  1 -meter 
mirror  separation  constraint.  This  was 
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Figure  1.  Schematic  Diagram  of  the  Spherical 
Chamber  Viewed  from  the  Sample 
Introduction  Port  Side. 


accomplished  by  using  a  modifrcation 
of  the  basic  White  (Reference  6)  3- 
mirror  system  as  suggested  by  Olson 
(Reference  7).  The  chamber  optical 
system  is  interfaced  to  a  hticolet  Model 
160-SX  Fourier  transform  infrared 
(FT-IR)  spectrometer.  The  optical 
interface  is  diagrammed  in  Figure  3. 

The  entire  optical  path  is  purged  with 
pure,  dry  air  provided  by  an  in-house 
system  (Reference  4). 

3.  .  Performance.  Typical 
performance  of  the  chamber  optical 
system  is  shown  in  a  representative 
spectrum  of  hydrazine  vapor  with 
methane  as  an  internal  standard  in  one 
atmosphere  of  dry  helium.  This  spectrum  was  acquired  under  the  following  conditions:  a  path 
length  of  106  meters,  a  resolution  of  1.0  cm'l,  and  256  scans.  Signal-to-noise  levels  drop  beyond 
2,0(X)  cm'^  but  useable  spectra  can  be  obtained  at  frequencies  beyond  4,000  cm'^. 


'igure  2.  Schematic  Diagram  of  the  Spherical  Chamber 
Viewed  from  the  Side  Opposite  the  Sample 
Introduction  Port 
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TOP  VIEW 


Figure  3.  Schematic  Drawing  of  the  Optical  Path  from  the  FT-IR 
Spectrometer,  through  the  Long  Path  Chamber  to  the 
Detector. 


Figure  4.  Reixesentative  Spectrum  of  20  ppm  Methane  and  SO  ppm  Hydrazine. 

Conditions  were:  resolution.  1.0  cm'^;  256  coadded  scans;  path  length  106 
meters.  The  Inset  Shows  an  Expansion  of  the  2200-2100  cm'^  Region 
Demonstrating  the  Low  Peak-to-Peak  Noise  Level. 
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B.  MATERIALS 


1.  Test  Plates.  To  characterize  the  effects  of  different  'operational'  surfaces  on  the  air 
oxidation  rate  and  kinetics  of  hydrazine  vapor,  several  sets  of  metal  plates  were  obtained.  These 
plates  were  sized  to  (a)  fit  into  a  Teflon® -coated  rack  which  was  placed  inside  the  chamber,  and 
(b)  have  approximately  the  same  surface  area  as  the  interior  of  the  chamber.  To  achieve  these 
design  goals,  20  plates  were  fabricated  which  were  35.5  cm  long  by  20.2  cm  wide.  The  total 
surface  area  of  each  plate  was  0. 143  meter^,  giving  a  total  surface  area  of  2.87  meter2.  The 
interior  surface  area  of  the  chamber  was  about  3.14  meter^.  The  following  types  of  plates  were 
used: 


•Teflon®-coated  aluminum.  These  plates  were  coated  with  the  same  FEP  Teflon®  as  the 
interior  of  the  chamber.  They  were  used  to  evaluate  the  reactivity  of  the  Teflon®  coating  in 
the  chamber.  The  plates  were  washed  in  a  2  percent  solution  of  Micro®  liquid  laboratory 
cleaner  (International  Products  Corp,  Trenton,  NJ),  rinsed  with  hot  tap  water,  then  distilled 
water,  and  finally  with  a  50  percent  methanol  -  50  percent  acetone  solution.  They  were 
then  kept  wrapped  in  clean  paper  towels  covered  with  aluminum  foU  until  they  were  placed 
in  the  chamber. 

•black  iron.  These  plates  were  used  to  evaluate  the  reactivity  of  hydrazine  vapor  in  contact 
with  iron  surfaces.  The  plates  were  scrubbed  with  fine  steel  wool  and  then  cleaned  and 
stored  as  described  above. 

•corroded  aluminum.  To  verify  the  results  from  a  parallel  study  at  the  NASA  White  Sands 
Test  Facility,  funded  by  AFESC  (Reference  2),  corroded  aluminum  plates  were  prepared. 
Twenty  plates  were  supported  upright,  spaced  1/2  inch  apart,  in  a  Teflon®  holder  then 
covered  with  about  45  liters  of  tap  water  in  a  deep  sink.  Then  about  250  grams  of  solid 
calcium  hypochlorite  were  added.  Finally,  a  stream  of  air  was  bubbled  through  the  water  at 
about  15  liters/min.  The  plates  were  kept  in  the  water  for  about  6  weeks.  During  this  time, 
a  grey-white,  gelatinous  material  (probably  Bayerite  [Reference  8])  formed  on  the  surfaces 
of  the  plates.  The  plates  were  removed  from  the  water  and  air-dried,  causing  a  rather 
coarse  white  powder  to  form  on  the  surfaces.  The  excess  was  removed  by  tapping  the 
plates  gently  against  a  table  top.  Then  they  were  stored  as  described  above. 

•painted  aluminum.  These  plates  were  used  to  characterize  the  reactivity  of  the  surface  of 
an  F-16  aircraft  Twenty  plates  were  primed  and  painted  by  the  aircraft  maintenance 
personnel  at  Tyndall  AFB  with  the  type  of  painted  used  in  the  F-16.  These  were  washed 
and  rinsed  and  stored  for  use  as  described  above. 
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2.  Hydrazine.  The  hydrazine  used  in  this  study  (Aldrich,  98  percent  pure)  was  transferred 
under  argon  to  a  distillation  apparatus,  refluxed  over  reagent  grade  NaOH  for  4  hours  and  then 
distilled.  The  fraction  collected  at  1 13.5  °C  was  transferred  under  argon  and  stored  in  a  Pyrex® 
flask  with  a  Teflon®  vacuum  valve. 

3.  Methane.  The  methane  used  in  this  study  was  Fisher  high-purity  grade  (99.99  percent). 

4.  Helium.  The  helium  used  was  high-purity  grade  (99.995  percent). 

5.  Oxygen.  The  oxygen  used  was  ultra-high-purity  (99.99  percent). 

6.  Water.  The  water  used  was  laboratory  distilled  water. 

C.  METHODS  AND  PROCEDURES 

1.  Sample  Preparation  and  Introduction.  Samples  of  hydrazine  vapor  were  prepared  on  the 
portable  vacuum  system  described  previously  (Reference  4,  pp.  20-21).  A  5-Uter  Pyrex®  flask 
with  Teflon®  vacuum  valves  (Kontes,  Cat  No.  826600-004)  at  both  ends  was  filled  to  8  Torr 
with  hydrazine  vapor,  then  flushed  into  the  chamber  with  helium.  For  runs  conducted  under 
simulated  atmospheric  conditions,  150  Torr  of  oxygen  were  added  to  610  Torr  of  helium.  The 
mixing  fan  was  operated  during  the  filling  process.  All  runs  were  made  at  760  Torr  total  pressure 
in  the  chamber  and  at  20  ’C  (unless  otherwise  noted).. 

Methane  was  added  to  some  runs  as  an  internal  standard.  It  was  added  as  a  10  cc  sample  from 
a  gas  syringe  (1  atmosphere  sample  pressure)  injected  into  the  chamber  sample  manifold  during  the 
chamber  frU  procedure. 

Water  was  added  to  the  chamber  to  create  liumid'  conditions,  i.e.,  approximately  50  percent 
relative  humidity.  This  was  accomplished  by  injecting  5  mL  of  liquid  water  into  the  chamber 
sample  manifold,  then  heating  and  evaporating  the  water  into  the  chamber. 

2.  FT-IR  Spectrometer  Operation.  The  FT-IR  spectrometer  used  in  this  study  was  a  Nicolet 
model  6000C  which  had  been  upgraded  to  model  160SX  specifications.  It  includes  a  1280 
processor  with  coprocessor,  256K  of  20-bit  word  memory,  24Mbyte  hard  drive,  1  Mbyte  (8-in) 
floppy  drive,  and  a  ]i^te  Read  Many  optical  storage  accessory  (Nicolet  Maxtor  Model  RXT- 
800S).  Unless  otherwise  noted,  spectra  were  run  at  1.0  cm‘l  resolution  using  a  specially- 
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fabricated  mercury-cadmium-telluride  A  (MCT-A)  detector  (Infrared  Associates  Model  NB  FTIR). 
The  number  of  coadded  scans  per  spectrum  varied  from  16  to  256  with  128  being  the  most 
common.  Spectra  were  acquired  under  instrument  control  using  the  Nicolet  FT-IR  control 
language  and  the  MACRO  commands  it  provides. 

Molecular  species  of  interest  were  monitored  by  recording  their  absorption  spectra  as  a 
function  of  time.  A  pathlength  of  106  meters  was  used  for  most  of  the  study,  however,  this  was 
shortened  to  50  meters  toward  the  end  of  the  experiments  because  of  mirror  surface  degradation. 

A  background  spectrum  for  a  particular  experiment  was  obtained  by  co-adding  1024 
instrument  scans  and  storing  the  result.  Subsequently  acquired  sample  spectra  were  ratioed  against 
this  stored  background  spectrum  to  give  absorbance  spectra.  A  typical  experimental  run  was 
conducted  as  follows.  Immediately  after  the  chamber  was  filled  to  begin  an  experimental  run,  the 
FT-IR  spectrometer  was  placed  under  software  control  for  automatic  data  acquisition,  processing, 
storage  and  plotting.  The  initial  spectrum  was  acquired  within  3-5  minutes  after  the  chamber  was 
niled.  Then  spectra  were  acquired  at  regular  intervals  thereafter  as  set  by  the  system  control 
software.  The  resulting  data,  including  time,  species  absorbance  values,  humidity,  and 
temperature,  were  sent  to  an  open  computer  file  and  stored  in  ASCII  format  for  offline  processing 
and  plotting.  All  of  these  operations  and  calculations  were  handled  automatically  by  the 
instrument's  MACRO  software.  (See  Appendix  A  for  a  data  acquisition  flow  diagram,  and 
Appendix  B-I  for  data  acquisition  and  processing  software  program  listings.) 
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SECTION  III 


MATHEMATICAL  KINETIC  MODELS 
A .  INTRODUCTION 

1.  One-Measurement  Models 
a.  Review  of  Previous  Studies 

Prior  to  the  work  described  in  this  report,  research  was  conducted  to  investigate  and 
characterize  the  decay  and/or  disappearance  of  hydrazine  in  an  environmental  chamber.  (Reference 
3)  The  study  employed  two  fluorocarbon-film  environmental  chambers.  The  chambers  were  of 
different  size  with  one  having  a  surface  to  volume  (S/V)  ratio  of  8.9  m*^  and  the  other  a  S/V  ratio 
of  3.4  m‘1.  The  first  chamber  had  a  capacity  of  320  L  and  the  second  had  a  capacity  of  6520  L. 
Each  of  these  chambers  were  enclosed  in  a  larger  chamber  such  that  the  external  environment  could 
be  controlled  in  terms  of  temperature  and  humidity.  The  appropriate  IR  bands  were  monitored  to 
follow  the  decay  processes  of  hydrazine  and  some  of  its  derivatives  which  were  also  studied. 

A  modified  Marquardt  algorithm  using  an  Euler  method  of  numeric  integration  was 
used  to  estimate  the  parameters  of  proposed  models  which  characterized  the  loss  processes.  There 
were  two  types  of  models  investigated.  The  first  model  was  a  permeation  model  which  treated  the 
fluorocarbon  film  as  a  series  of  permeable  pore  layers.  With  this  approach  the  flrst  expression  in 
the  model  was, 


ks 

G  +  Si  < - >  G-Si 

k-s 

where  G  was  the  gas,  ks  and  k-s  were  the  adsorption  and  desorption  rate  constants  Si  was  the 
inside  pore  layer  of  the  chamber  wall.  Since  the  fllm  had  an  associated  thickness,  it  was  possible 
for  there  to  be  N  pore  layers  with  Sn  being  the  outside  layer.  As  molecules  were  adsorbed  into  the 
inside  layer,  the  molecule  could  then  diffuse  to  other  pore  layers  within  the  wall  until  it  moved  to 
outside  of  the  film  and  was  lost  to  the  external  environment  Incorporation  of  N  pore  layers  into 
the  model  resulted  in  the  addition  of  the  following  exjHessicms: 
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for  i  =  2  to  N 


ko 

G-S(i.i)  +  Si  < - >  G-Si  +  S(i.i) 

k-D 


k-s 

G-Sn  - >  outside 

where  ko  was  the  rate  constant  for  diffusion  between  two  adjacent  pore  layers  and  k.s  was  the 
desorption  rate  constant  as  in  the  first  expression. 

The  second  model  was  an  adsorption  model  whereby  the  hydrazine  adsorbed  onto 
nonpermeable  sites.  The  expression  for  this  process  was  given  by  the  following: 

for  i  =  1  to  f 


ki 

G  +  Fi  < - >  G-Fi 

k-i 


where  ki  and  k.i  are  the  adsorption  and  desorption  rate  constants  at  the  nonpermeable  site  i  with  f 
being  the  number  of  different  types  of  nonpermeable  adsorption  sites. 

The  overall  loss  process  was  governed  primarily  by  the  SA^  ratio  of  the  chamber. 
Autoxidadon  did  not  appear  to  be  a  significant  factor  since  the  presence  of  oxygen  in  the  matrix  gas 
had  little  effect  on  the  rate  of  disappearance.  Chamber  conditions  which  altered  the  chamber 
surface  such  as  humidity  and  previous  decay  runs  also  had  significant  effects  on  the  rate  of 
disappearance.  The  models  used  to  fit  the  data  worked  well  to  quantitatively  and  qualitatively 
characterize  the  physical  loss  process. 

b.  Current  Studies 

Following  the  woric  described  above,  a  new  environmental  chamber  was  constructed. 
(References  4  and  5)  It  consisted  of  a  spherical  stainless  steel  chamber  coated  internally  with 
Teflon.®  Pressure  and  temperature  within  the  500-L  chamber  were  regulated  and  the  SA^  ratio 
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was  minimized  in  comparison  to  cylindrical  and  cube  chambers  with  the  SA^  ratio  for  the  spherical 
chamber  being  equal  to  4.836  m-i. 

In  subsequent  studies,  data  from  the  spherical  chamber  were  analyzed  with  more  one- 
measurement  models.(Reference  1 1)  Models  based  on  fitting  one  measurement  through  time  were 
used  with  the  M*:  qiuardt  algorithm  (Reference  12)  being  incorporated  with  a  least-squares 
differential  corrector  (LSEXH)  as  well  as  fourth-order  Runge-Kutta  numeric  integration.  The  signal 
used  was  the  FT-IR  absorbance  band  for  hydrazine  at  958  cm-l. 

This  study  resulted  in  an  implementation  of  the  Marquardt  algorithm  which  was 
approximately  1000  times  faster  than  previous  versions.  (Reference  3)  The  speed  enhancement 
was  due  to  the  optimization  of  software  through  the  use  of  a  FORTRAN  program  in  place  of  the 
previously  used  BASIC  version  as  well  improvement:  tr  .’le  implementation  of  the  algorithm. 
Also,  the  use  of  more  advanced  computer  hardware  played  a  vital  role  in  the  speed  increase. 

Several  models  were  proposed  and  tested  with  hydrazine  decay  data  collected  from  the 
environmental  chamber.  The  atmosphere  within  the  chamber  consisted  of  80  percent  helium  and 
20  percent  oxygen.  Also  included  in  the  chamber  were  20  Teflon®-coated  aluminum  plates  so  that 
the  effect  of  an  increased  SA^  ratio  within  the  chamber  could  be  studied. 

The  first  model  tested  was  a  first-order  linear  model.  In  this  model,  the  loss  process 
is  described  as  a  first-order  reaction  at  a  surface  site  expressed  as: 


ki 

G  - >  products 

(surface) 

where  G  is  the  concentration  of  the  hydrazine  gas  and  ki  is  the  reaction  rate  constant.  The  second 
model  tested  was  a  first-order  nonlinear  model.  This  model  characterized  the  loss  process  as  a 
bimolecular  reaction  at  a  surface  site. 


k2 

G  +  G  - >  products 

(surface) 


Again  G  is  the  concentration  of  the  hydrazine  gas  and  k2  is  the  reaction  rate  constant 

A  more  complicated  model  was  evaluated  with  the  creation  of  a  third-order  irreversible 
oxidation  model  In  the  model,  irreversible  adsorption  of  the  gas  onto  a  surface  site  was  followed 
by  the  formation  of  an  intermediate  product  which  then  went  on  to  react  with  hydrazine  to  give  a 
final  product.  The  surface  site  used  in  the  reaction  was  returned  following  the  formation  of  the 
intermediate.  Three  expressions  were  generated  to  describe  this  process  and  were  as  follows: 


ki 

G  +  S  - >  G-S 

k-2 

G-S  - >  I  +  S 

k3 

G  +  I  - >  products 


where  G  was  the  concentration  of  hydrazine,  S  was  a  surface  site,  and  G-S  was  the  hydrazine 
adsorbed  onto  the  surface.  The  rate  constant  for  the  adsorption  onto  the  surface  was  given  by  ki 
with  k2  being  the  rate  constant  of  the  formation  of  an  intermediate,  S.  The  intermediate  then 
reacted  with  hydrazine  to  form  products  with  the  reaction  rate  constant  being  given  by  k3. 

Another  model  tested  was  a  second-order  catalytic  adsorption  model.  This  model 
incorporated  reversible  adsorption  of  hydrazine,  G,  onto  a  surface  site,  S,  with  the  adsorbed 
species,  G-S,  then  undergoing  catalytic  oxidation  to  yield  products.  The  two  equations  used  were: 

ks 

G  +  S  < - >  G-S 

k-s 

ko 

G-S  - >  S  +  products 

(O2) 
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where  kj  and  k-s  are  the  rate  constants  for  the  adsorption  and  desorption  of  hydrazine  onto  a 
surface  site  and  ko  is  the  rate  of  catalytic  oxidation.  In  the  current  studies,  the  third-order 
irreversible  oxidation  model  consistently  gave  the  best  fits  overall  compared  with  to  other  models 
tested. 

2.  Model  Revisions 

Another  aspect  of  this  work  was  to  update  and  optimize  the  algorithm  used  for  the 
parameter  estimation  as  well  as  incorporate  data  from  the  newly  constructed  environmental 
chamber.  The  work  was  successful  on  both  counts  and  paved  the  way  for  the  work  described 
below. 


The  models  used  during  this  project  have  undergone  extensive  modifications  from 
previous  versions.  Modifications  made  include  changes  to  the  kinetic  models  themselves  as  well 
as  changes  in  the  implementation  of  the  Marquardt  algorithm.  The  current  implementation  of  the 
algorithm  is  believed  to  be  the  most  optimal  configuration  thus  far  for  this  woiic. 

A  brief  summary  of  the  changes  that  have  been  made  are  as  follows.  One  of  the  major 
changes  made  includes  the  utilization  of  two-measurement  models  as  opposed  to  using  only  one 
measurement  for  the  purpose  of  fitting.  With  this,  it  became  necessary  to  modify  the  kinetic 
models  proposed  in  order  to  incorporate  the  second  measurement  into  the  model  scheme.  Another 
major  change  was  a  modification  to  the  program  logic.  As  the  parameter  estimation  program 
iterates  and  attempts  to  converge  down  to  an  error  surface  minimum,  a  decision  process  was 
implemented  after  each  calculation  loop  to  determine  the  degree  of  the  gradient  and  least  squares 
solution  present  in  the  move  down  the  error  surface. 

The  value  of  the  FORTRAN  program  parameter  known  as  MarqLambda  controlled  how 
gradient  or  least  square  the  solution  for  a  particular  iteration  would  be.  After  convergence  of  the 
loop,  a  decision  was  made  as  to  how  MarqLambda  should  be  modified.  Lower  values  made  the 
solution  more  least  square  (larger  move)  and  a  higher  value  made  the  solution  more  gradient 
(smaller  move).  It  was  necessary  to  make  modifications  to  this  parameter  to  optimize  the  search 
down  the  error  surface. 

During  the  first  step  of  a  loop,  the  nominal  value  of  MarqLambda  was  used.  It  was  generally 
initialized  in  the  initial  conditions  file  as  0.01.  After  the  first  step,  the  sum  of  the  square  of  the 
error  (SOS)  as  well  as  the  root  mean  square  (RMS)  error  were  calculated  for  the  fit  Once  this  was 
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done,  MarqLambda  was  scaled  down  by  a  factor  of  ten  to  give  a  more  least  square  solution.  The 
SOS  and  RMS  errors  were  again  calculated.  The  nominal  value  for  MarqLambda  was  then  scaled 
up  by  a  factor  of  ten  to  give  a  more  gradient  solution.  The  SOS  and  RMS  error  values  for  this 
solution  were  also  calculated.  The  program  then  made  a  comparison  to  see  which  value  of 
MarqLambda  resulted  in  the  smallest  SOS  and  RMS  error  value.  That  value  then  became  the  next 
nominal  value  for  MarqLambda.  If  none  of  the  results  yielded  improvement,  the  original  nominal 
value  of  MarqLambda  was  retained. 

In  past  versions  of  the  program,  the  Jacobian  was  reevaluated  for  each  new  value  of 
MarqLambda  tested  within  the  outer  loop.  To  optimize  the  program,  the  Jacobian  is  now  evaluated 
only  once  at  the  start  of  the  loop.  Another  switch  was  used  to  scale  the  Jacobian  matrix.  When  the 
data  was  ill  conditioned,  this  option  was  used  to  scale  the  columns  of  the  Jacobian  matrix.  A,  by 
the  norms  of  the  columns.  This  helped  prevent  the  routine  from  running  out  of  significant  digits 
when  the  values  in  the  matrix  spanned  several  orders  of  magnitude. 

Within  the  initial  conditions  Hie,  a  boolean  switch  could  be  set  to  force  nonnegative 
parameters  since  negative  values  do  not  have  any  physically  meaningful  value  for  concentration. 


3.  Model  Development 

Over  the  course  of  this  project,  one  of  the  primary  goals  was  to  develop  kinetic  models 
which  could  meet  certain  criteria.  The  criteria  were  based  on  real  world  limitations  which  had  to  be 
taken  into  consideration.  In  doing  so,  the  results  from  the  analysis  remained  physically  meaningful 
and  efficiently  performed. 

The  Hrst  criterion,  though  not  the  most  significant,  was  that  of  computation  time.  The 
models  that  were  constructed  consisted  of,  in  general,  no  more  than  six  or  seven  differential 
equations.  Due  to  the  computer  hardware  at  our  disposal,  models  that  contained  more  than  six 
differential  equations  required  a  large  amount  of  time  to  converge  to  a  solution.  Because  of  the 
enormous  amount  of  data  generated  from  the  environmental  chamber,  computation  time  had  to  be 
controlled  so  that  all  data  sets  could  be  analyzed  thoroughly. 

The  next  criterion  was  based  on  the  kinetic  model  itself.  It  would  have  been  quite 
difficult  to  express  fiilly  the  complexity  of  the  system  under  study.  Instead,  empirical  models  were 
created  in  an  attempt  to  describe  the  major  processes  which  were  believed  to  be  responsible  for  the 
observed  optical  re^K)nse  measured  by  die  FT-IR  signal.  Since  the  FT-IR  signal  was  a  cumulative 


14 


response  representing  several  physical/chemical  (P/C)  processes,  the  empirical  models  were  an 
attempt  to  simplify  and  mathematically  represent  these  processes. 

The  third  criterion  was  model  performance.  If  the  model  adequately  represented  the  P/C 
processes,  a  small  value  for  the  root  mean  square  (RMS)  error  would  be  expected  between  the 
actual  and  the  fitted  data  points.  In  the  event  that  the  data  set  contained  a  high  level  of  noise  (which 
would  have  resulted  in  a  higher  than  expected  RMS  error  value),  plots  of  the  fitted  data  revealed  in 
part  the  source  of  some  of  the  model  error.  Plots  of  the  fitted  data  and  of  the  residuals  along  with 
the  RMS  value  were  excellent  indicators  of  how  well  a  model  fitted  the  data  set  and  were  useful  for 
comparison  with  other  models. 

Quite  often,  the  second  and  third  criteria  became  the  pivotal  points  of  the  analysis. 
Superior  performance  in  terms  of  the  P/C  processes  represented  by  a  model  coincided  with  poor 
model  performance  in  terms  of  mathematical  indicators  for  these  models. 

The  original  source  code  for  these  was  written  in  FORTRAN  by  Dr.  W.  P.  Mounfield  at 
Louisiana  State  University.  The  source  code  for  the  parameter  estimation  program  including 
applicable  library  routines  contained  over  10,000  lines  of  code.  A  listing  of  the  program 
(excluding  the  library  routines)  is  given  in  Appendix  T.  The  library  routines  were  called  directly 
from  commercially  available  software  programs  (Reference  13). 

The  creation  of  a  new  model  involved  the  modification  of  the  source  code  of  an  existing 
program  to  reflect  the  pertinent  model  changes.  There  were  six  steps  necessary  to  implement  a 
new  model  into  the  source  code  copied  from  an  existing  program: 

[1.  Header]  The  first  step  was  to  edit  the  comment  section  at  the  top  of  the  code.  The 
model  being  implemented  and  its  differential  equations  were  listed  here  to  give  the  user  a  record  of 
what  the  program  contained.  Also  listed  here  were  any  substitutions  that  were  made  when  the  user 
attempted  to  reduce  the  differential  equations  into  common  terms. 

[2.  Matrix  dimensions]  The  second  step  was  to  edit  the  variable  initialization  section  at 
the  top  of  the  program.  The  values  of  five  variables  were  modified  to  accommodate  both  the  new 
model  and  the  data  set  The  variables  to  be  modified  are  listed  below. 

-  NUM_STATE  =  the  number  of  state  variables  in  the  model 

-  NUM_PARAM  =  the  number  of  parameter  variables  in  the  model 
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-  M  =  NIJM_STATE  +  NUM.PARAM 

-  N  =  M+1 

-  MAX_POINTS  =  the  maximum  number  of  data  points  allowed  in  a  data  set  minus  one 
(this  is  critical  when  working  on  a  computer  system  with  limited  memory  such  as  a  IX)S  system) 

[3.  Subroutine  EXTRACT_A2]  In  the  subroutine  extract_a2,  the  user  deHned  the 
equation  which  was  used  to  define  the  matrix  A,  the  Jacobian.  The  matrix  A  was  based  upon  the 
partial  of  the  measurement  values  with  respect  to  the  states. 

[4.  Subroutine  FORM_ERROR]  In  the  subroutine  form.error,  the  user  defined  the 
matrix  YHAT  in  the  same  terms  as  those  used  to  define  the  matrix  A.  This  matrix  was  then  used  to 
calculate  the  error  between  the  actual  and  calculated  measurement  values. 

[5.  Function  FUNCOFX]  In  this  function,  the  user  defined  the  differential  equations 
proposed  for  the  model  and  was  required  for  explicit  model  calculations.  The  equations  defined 
the  matrix  X  in  the  program. 

[6.  Initial  conditions  file]  An  external  initial  conditions  ASCII  file  was  required  to 
initialize  state  and  parameter  startup  values.  This  file  had  to  be  edited  to  reflect  the  proper  number 
of  states  and  parameters  and  had  to  be  in  the  proper  format  for  input  into  the  program.  In  this  file 
the  user  also  set  toggle  switches  that  controlled  certain  features  in  the  program  as  well  as  edit 
certain  computational  parameters. 

Below  is  an  example  of  an  initial  conditions  file  used  for  MOD380.  Certain  parameters 
and  switches  were  included  in  prior  work  or  experimentation  and  are  no  longer  utilized  for  this 
study.  Parameters  no  longer  utilized  are  denoted  by 

FALSE  Scale  the  Jacobian?  false  =  no,  use  levenberg  lamda 
TRUE  NON-NEGATIVE  PARAMETER,  true  =  yes  force  all  par  to  be  non-neg 
76  Number  of  data  points  (- 1 )  in  data  set 

FALSE  If  explicit  partials  are  defined,  true  =  yes  * 

20  Max  number  of  iterations  before  stopping  unless  converged 

10.0  MaiqV,  a  number  to  increase/decrease  lamda  by  at  each  iteration 
1  .OE-2  MarqLambda,  a  number  to  add  to  AtA  in  (ATA  +  lamda  Dx=  b 
1  .OE-5  MaiqEpsilon(case  1),  a  convergence  criterion 
1  .OE-5  MaiqEpsilon(case  2),  a  convergence  criterion 


FALSE  With  SVD?  TRUE  =  yes,  takes  precedence  over  inversion  * 

FALSE  With  added  noise?  TRUE  =  the  program  will  ADD  noise  to  data  * 
0.00  Added  noise  mean,  if  we  add  noise  * 

0.01  Added  noise  standard  deviation,  if  we  add  noise  * 

FALSE  With  weights  on  meas.'s?  i.e., .  do  you  know  the  var  of  the  noise?  * 
FALSE  With  inversion?,  true  =  yes,  use  inversion,  no=  solve  ax=b  * 

1.18  Maximum  delta  time  between  steps 

0.5  Initial  CMicentration  of  HZ  (not  used  if  s=0  .i.e., .  HZ  estimated)  * 
0.05  Standard  deviation  of  measurement  noise,  if  known  and  used  * 

0.001  Init  state  1 

0.001  Init  state  2,  or  I 

0.001  Init  state  3,  or  NH3 

0.5  Init  state  4,  or  estimated  hydrazine  concentration 

0.5  ki 

1.3  k2 

0.2  k3 

0.4  S,  empirical  quantitative  value  for  surface  site  abundance 
FALSE  If  run  has  sequential  injections  of  HZ;,  trues  yes  * 

2  Number  of  sequential  runs,  must  exist  if  seq  =  true  * 

10.5  lime  values  for  injection  of  HZ  ♦ 

1.05  Concentration  at  injection  time  * 


4.  Two-Measurement  Models 

After  the  completion  of  the  initial  one-measurement  model  studies  described  above,  the 
next  step  was  to  incorporate  a  second  measurement  into  the  model.  This  was  an  attempt  to 
improve  on  the  second  criterion  described  above.  In  characterizing  a  system,  it  was  a  natural 
extension  of  the  single  measurement  woik  to  simultaneously  utilize  a  second  FT-IR  band  signal 
which  more  completely  defined  the  P/C  processes  being  considered.  The  beneHt  was  the 
utilization  of  more  information  during  the  analysis  of  the  system  under  question. 

With  the  use  of  a  second  measurement,  certain  difHculties  made  it  seem 
counterproductive  to  our  attempt  to  improve  on  the  second  criterion.  One  difficulty  was  that  since 
the  second  measurement  was  directly  associated  with  a  minor  product  in  the  decay  process,  the 
kinetic  model  must  then  reflect  that  product  in  the  differential  equations.  Initially  this  appeared  to 


17 


be  beneficial,  but  in  practice,  it  resulted  in  overly  restrictive  models.  With  the  emphasis  on  the 
creation  of  models  with  realistic  P/C  processes,  forcing  certain  empirical  species  through  specific 
decompositions  generally  caused  difficulties  in  flnding  an  acceptable  numeric  solution  to  the 
problem.  This  procedure  also  resticted  the  types  of  kinetic  schemes  which  could  be  tested. 

During  the  model  development  stage  of  this  project,  several  models  were  proposed  and 
tested.  Only  a  select  few  were  able  to  give  fair  to  good  results.  Below  is  a  description  of  the 
models  utilized  in  this  study.  The  complexity  of  each  model  varied  according  to  the  scope  of  the 
P/C  processes  it  attempted  to  simulate.  In  some  cases,  simple  models  served  as  tools  to  test  data 
sets  to  see  if  a  solution,  though  not  physically  meaningful,  could  be  found.  The  simplest  models 
almost  always  converged  to  a  good  numerical  solution. 

For  all  of  the  models  presented  below,  all  second  measurements  used  represent  the 
ammonia  band  in  the  IR  spectrum.  The  band  for  water  was  available  but  proved  to  be  of  limited 
use  since  it  was  very  difficult  to  stabilize  and  reproduce  at  times  and  generally  could  not  be  fit  in 
any  meaningful  fashion. 

The  data  sets  used  above  required  a  sp^ific  file  format  The  data  had  to  be  in  a  column 
format  with  the  first  column  being  the  time  measurement  The  second  column  was  the  absorbance 
measurement  of  hydrazine  and  the  third  column  was  the  ammonia  measurement 


Below  are  descriptions  of  the  models  used  consistently  for  these  studies.  Not  all  of  the 
models  listed  always  gave  a  good  fit  but  by  experimenting  with  all  of  them,  a  good  fit  could  often 
be  achieved  for  a  given  data  set  The  names  given  to  the  models  are  empirical  in  r  .hire. 

a.  MODS  10 


ksi 


1. 

SI  - > 

SI 

Sl-xl 

xl 

kS2 

2. 

S2  - > 

S2’ 

S2-x2 

x2 
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3. 


HZ:S1 

x3 


kl 

ffi  +  SI  — -> 

g-x3  Sl-xl-x3 


k2 


4. 

IE  + 
g-x3-x4 

S2 

S2-x2-x4 

— -> 

HZ:S2 

x4 

5. 

HZ:S1 

x3-x5 

. > 

NH3 

x5 

+  SI 

Sl-xl+x5 

6. 

HZ:S2 

x4-x6 

u 

. > 

Prod 

x6 

+  S2* 

x2+x6 

yl  =  x7  -  x3  -  x4  -  x5 
y2  s  x5 

xl  =  0.001  (SI*) 
x2  =  0.001  (S2*) 
x3  =  x3 
x4  =  x4 

x5  =  0.001  (NH3) 

x6  =  0.001  (prod) 

x7  =  g 

x8  =  SI 

x9  =  S2 

xlO  =  ksl 

xll  =  ks2 

xl2  =  ki 

xl3  =  k2 

xl4  =  k3 

xl5  =  k4 


-  x6 


dxl/dt  =  ksl  (Sl-xl-x3+x5) 

dx2/dt  =  ks2  (S2-x2-x4) 

dx3/dt  =  ki  (g-x3-x4)  (Sl-xl-x3+x5) 

dx4/dt  =  k2  (g-x3-x4)  (S2-x2-x4) 

dx5/dt  =  k3  (x3-x5) 

dx6/dt  =  k4  (x4-x6) 

cl  =  x8  -  xl  -  x3  +  x5 
e2  =  x9  -  x2  -  x4 
e3  =  x7  -  x3  -  x4 

dxl/dt  =  xlO*el 
dx2/dt  =  xll  *  e2 
dx3/dt  =  xl2*e3*  el 
dx4/dt  =  xl3*c3*e2 
dx5/dt  =  xl4*(x3-x5) 
dx6/dt  =  xl5*(x4-x6) 
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MOD310  incoq)orated  two  measurements,  one  being  hydrazine  and  the  other  being 
ammonia.  This  model  included  two  types  of  surface  sites  for  reactions  to  occur.  Both  sites 
undergo  a  poisoning  effect  whereby  the  surface  site  becomes  unusable.  This  is  represented  in  the 
Hrst  and  second  equation.  There  are  six  equations  in  all.  This  helped  take  into  account  the 
"chamber  conditioning"  (Reference  1-2)  effect  which  appeared  after  repetitive  decay  runs.  The 
reactants  in  the  third  and  fourth  equations  represented  hydrazine  binding  to  the  surfaces  where  they 
may  then  undergo  a  decomposition  reaction  whereby  ammonia  and  some  unspecified  products 
were  formed.  The  formation  of  the  unspecified  products  returns  an  unusable  site. 

b.  MOD315 


ksi 


1. 

SI 

Sl-xl 

• — >  SI* 

xl 

2. 

S2 

S2-x2 

ks2 

. — >  S2* 

x2 

3. 

IE  + 
g-x3 

ki 

SI  ---> 

Sl-xl-x3 

HZ:S1 

x3 

4. 

ffi  + 
g-x3-x4 

k2 

S2  — -> 

S2-x2-x4 

HZ:S2 

x4 

5. 

HZ.S1 

x3-x5 

k3 

. >  NH3 

x5 

+  SI* 

xl-t-x5 

6. 

HZ:S2 

x4-x6 

U 

. >  Prod  +  S2 

x6  S2-x2+x6 
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yl  =  x7  -  x3  -  x4  -  x5  -  x6 
y2  =  x5 


xl  =  0.001  (SI*) 

dxl/dt  =  ksl  (Sl-xl-x3+x5) 

x2  =  0.001  (S2*) 

dx2/dt  =  ks2  (S2-x2-x4) 

x3  =  x3 

dx3/dt  =  ki  (g-x3-x4)  (Sl-xl-x3+x5) 

x4  =  x4 

dx4/dt  =  k2  (g-x3-x4)  (S2-x2-x4) 

x5  =  0.001  (NH3) 

dx5/dt  =  k3  (x3-x5) 

x6  =  0.001  (prod) 
x7  =  g 

dx6/dt  =s  k4  (x4-x6) 

x8  =  SI 

el  =  x8  -  xl  -  x3  +  x5 

x9  =  S2 

e2  =  x9  -  x2  -  x4 

xlO  =  ksl 
xll  =  k<j2 

e3  =  x7  -  x3  -  x4 

xl2  =  ki 

dxl/dt  =  xlO*el 

xl3  =  k2 

dx2/dt  =  xll  *  e2 

xl4  =  k3 

dx3/dt  =  xl2*e3*  el 

xl5  =  k4 

dx4/dt  =  xl3*e3*e2 
dx5/dt  =  xl4*(x3-x5) 
dx6/dt  =  xl5*(x4-x6) 

MODS  IS  is  a  two-measurement  model,  one  being  hydrazine  and  the  other  being 
ammonia.  This  model  also  included  two  types  of  surface  sites  for  reactions  to  occur.  The  Hrst  and 
second  equations  represent  "chamber  conditioning."  There  are  six  equations  in  all.  The  reactants 
in  the  third  and  fourth  equations  represent  hydrazine  binding  to  the  surfaces  where  they  may  then 
undergo  a  decomposition  reaction  whereby  ammonia  and  some  unspeciHed  products  are  formed. 
The  formation  of  the  ammonia  returns  an  unusable  site. 

c.  MOD350 

ks 

1.  S  - >  S* 

S-xl  xl 


21 


ki 

2.  ffi  +  S  . >  HZS 

g-x2  S-xl-x2  x2 


k2 

3.  HZ:S  . > 

x2-x3 

k3 

4.  HZ:S  . > 

x2-x3-x4 

yl  =  g  -  x2-  x3  -  x4 
y2  =  x3 

xl  =  0.001  (S*) 
x2  s  x2 
x3  =  x3  (NH3) 
x4  =  O.OOl(prcKl) 
x5  =  g 
x6  =  S 
x7  =  ks 
x8  s  ki 
x9  =  k2 


NH3  +  S* 
x3  x3-xl-x2 


Prod  +  S* 
x3+x4  x3+x4-xl-x2 


dxl/dt  =  ks  (S-xl-x2) 
dx2/dt  =  ki  (g-x2)  (S-xl-x2) 
dx3/dt  =  k2  (x2-x3-x4) 
dx4/dt  =  k3  (x2-x3-x4) 

el  =  x6  -  xl  -  x2 
e2  =  x5  -  x2 
c3  =  x2  -  x3  -  x4 

dxl/dt  =  x7*el 
dx2/dt  =  x8  *  e2*  el 
dx3/dt  =  x9*e3 
dx4/dt  =  xl0*e3 


MOD350  leinesents  a  simplification  of  MOD310  and  MCM!)31S  with  only  four  equations. 
In  this  model  there  is  only  one  type  of  surface  site  available  for  reaction.  It  too  undergoes  a 
conditioning  effect  (Equation  (1))  and  the  formation  of  unspecified  products  and  ammonia  yields 
unusable  sites. 
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d.  MOD360 


1. 


2. 


3. 


4. 


5. 


ksi 

SI  - — >  SI* 

Sl-xl  xl 

ki 

IE  +  SI  - >  HZ:S1 

g-x2  Sl-xl-x2  x2 

k2 

IE  +  S2  - >  HZ:S2 

g-x2-x3  S2-x3  x3 

k3 

HZ:S1  >  NHs  +  SI* 

x2-x4  x4  xl+x4 

k4 

HZ:S2  >  Prod 

x3-x5  x5 


yl  =  x6  -  x2-  x3  -  x4  -  x5 
y2  55  x4 


xl  =  0.001  (SI*) 
x2  5:  x2 
x3  =  x3 
x4  =  x4  (NH3) 
x5  =  x5  (prod) 
x6  =  g 
x7  =  SI 
x8  =5  S2 
x9  =  ksi 
xlO  =  ki 
xll  =  k2 
xl2  =  k3 


dxl/dt  =  ksl  (Sl-xl-x2) 
dx2/dt  =  ki  (g-x2-x3)  (Sl-xl-x2) 
dx3/dt  =  k2  (g-x2-x3)  (S2-x3) 
dx4/dt  =  k3  (x2-x4) 
dx5/dt  =  k4  (x3-x5) 

cl  =  x7  -  xl  -  x2 
e2  =  x6  -  x2  -  x3 
c3  55  x2  -  x4 
e4  =  x3  -  x5 
c5  =  x8  -  x3 
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xl3  =  k4 


dxl/dt  =  x9  *  el 
dx2/dt  =  xlO  *  e2  *  el 
dx3/dt  =  xlPe2  *  e5 
dx4/dt  =  xl2  *  e3 
dx5/dt  =  xl3  *  e4 

MOD360  contains  five  differential  equations  (numbered  to  the  left,  above).  This  model 
incorporates  two  types  of  surface  sites  with  only  one  of  them  becoming  poisoned.  Equation  (4) 
represents  the  formation  of  ammonia  resulting  in  an  unusable  site.  Equation  (S)  shows  the 
formation  of  unspecified  products  on  the  second  type  of  surface  site.  The  products  in  Equation  (5) 
do  not  take  into  account  the  fate  of  the  surface  site;  it  is  essentially  "consumed." 

e.  MOD361 


1. 

SI 

Sl-xl 

ksi 

SI* 

xl 

2. 

ffi  + 
g-x2 

ki 

SI  - — > 

Sl-xl-x2 

HZ:S1 

x2 

3. 

ffi  + 
g-x2-x3 

S2 

S2-x3 

k2 

- > 

HZ:S2 

x3 

4. 

HZ:S1 

x2-x4 

^3 

- > 

Prod  + 

x4 

SI* 

xl+x4 

5. 

HZ:S2 

x3-x5 

k4 

- > 

NH3 

x5 

yl  =  x6  -  x2-  x3  -  x4  -  x5 
y2  =  x5 
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xl  =  0.001  (SI*) 

x2  =  x2 

x3  =  x3 

x4  =  x4  (prod) 

x5  =  x5  (NH3) 

x6  =  g 

x7  =  SI 

x8  =  S2 

x9  =  ks  1 

xlO  =  ki 

xll  =  k2 

xl2  =  k3 

xl3  =  k4 


dxl/dt  =  ksl(Sl-xl-x2) 
dx2/dt  =  ki  (g-x2-x3)  (Sl-xl-x2) 
dx3/dt  =  k2  (g-x2-x3)  (S2-x3) 
dx4/dt  =  k3  (x2-x4) 
dx5/dt  =  k4  (x3-x5) 

el  =  x7  -  xl  -  x2 
e2  =s  x6  -  x2  -  x3 
e3  =  x2  -  x4 
e4  =  x3  -  x5 
e5  =  x8  -  x3 

dxl/dt  =  x9  *  el 
dx2/dt  =  xlO  *  e2  ♦  el 
dx3/dt  =  xll  *  e2  *e5 
dx4/dt  =  xl2  *  e3 
dx5/dt  =  xl3  *  e4 


MOD361  also  contains  five  diffetendal  equations  (numbered  to  the  left,  above).  One  of 
the  two  surface  sites  in  this  model  becomes.  Equation  (4)  represents  the  formation  of  unspecified 
products  resulting  in  an  unusable  site.  Equation  (5)  shows  the  formation  of  ammonia  on  the 
second  type  of  surface  site.  As  with  MOD360,  the  products  in  Equation  (5)  do  not  take  into 
account  the  fate  of  the  surface  site. 


MOD360  and  MOD361  are  not  physically  meaningful  because  of  Equations  (5)  and  their 
insufficient  characterization  of  surface  site  2.  These  two  models  were  prototypes  for  the  next 
models  to  be  developed. 

f.  MOD370 


ksi 

1.  SI  - — >  SI* 

Sl-xl  xl 
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2. 

ffi  + 
g-x2 

SI 

Sl-xl-x2 

kl 

- > 

HZ:S1 

x2 

3. 

ffi  + 
g-x2-x3 

S2 

S2-x3 

k2 

- > 

HZ:S2 

x3 

ks 

4. 

HZ:S1  — 

->  Prod  + 

SI* 

x2-x4 

x4 

xl+x4 

k4 

5. 

HZ:S2  — 

->  NH3  + 

S2 

x3-x5 

x5 

S2-x3+x5 

yl  = 

x6  -  x2-  x3 

-  x4  -  x5 

y2  = 

x5 

Xl  ss 

:  0.001  (SI*) 

dxl/dt  =  ksl 

(Sl'Xl-x2) 

x2  = 

x2 

dx2/dt  =  ki 

(g-x2-x3)  (Sl-xl-x2) 

x3  = 

x3 

dx3/dt  =  k2 

(g-x2-x3)  (S2-x3+x5) 

x4  = 

:  x4  (prod) 

dx4/dt  =  k3 

(x2-x4) 

x5  = 

x5  (NH3) 

dx5/dt  =  k4 

(x3-x5) 

x6  = 

8 

x7  = 

SI 

el  =  x7  -  xl 

-  x2 

x8  = 

S2 

e2  =  x6  -  x2 

-  x3 

x9  = 

ksi 

e3  =  x2  -  x4 

xlO 

=  ki 

e4  =  x3  -  x5 

xll 

=  k2 

e5  =  x8  -  x3 

+x5 

xl2 

=  k3 

xl3 

=  k4 

dxl/dt  =  x9 

*  el 

dx2/dt  =  xlO 

*  e2  *  el 

dx3/dt  =  xll 

*  e2  *  e5 

dx4/dt  =  xl2 

*  e3 
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dx5/dt  =  xl3  *  e4 


MOD370  is  an  extension  of  MOD360.  It  has  two  surface  sites  with  the  first  one 
undergoing  the  poisoning  process.  Hydrazine  binds  to  both  surface  types  and  undergoes  a 
decomposition  reaction  to  yield  unspecified  products  and  ammonia.  Upon  formation  of  the 
unspecified  products,  an  unusable  surface  site  is  returned.  After  the  formation  of  ammonia,  a 
usable  surface  site  is  returned. 

g.  MOD375 

ks 

1.  SI  - — >  SI* 

Sl-xl  xl 

ki 

2.  ffi  +  SI  -— >  HZ:S1 

g-x2  Sl-xl-x2  x2 

k2 

3.  ffi  +  S2  -— >  HZ:S2 

g-x2-x3  S2-x3  x3 

ks 

4.  HZ:S1  - >  NH3  +  SI* 

x2-x4  x4  xl+x4 

k4 

5.  HZ:S2  - >  Prod  +  S2 

x3-x5  x5  S2-x3+x5 

yl  =  x6  -  x2-  x3  -  x4  -  x5 
y2  =  x4 


xl  =  0.001  (SI*) 
x2  =  x2 
x3  =  x3 


dxl/dt  =  ksl  (Sl-xl-x2) 
dx2/dt  =  ki  (g-x2-x3)  (Sl-xl-x2) 
dx3/dt  =  k2  (g-x2-x3)  (S2-x3+x5) 


x4  = 

:  x4  (NH3) 

dx4/dt  = 

k3  (x2-x4) 

x5  = 

:  x5  (prod) 

dx5/dt  = 

k4  (x3-x5) 

x6  = 

g 

x7  = 

SI 

el  =  x7  ■ 

■  xl  -  x2 

x8  = 

S2 

e2  =  x6  ■ 

•  x2  -  x3 

x9  = 

ksi 

e3  =  x2  - 

x4 

xlO 

=  ki 

e4  =  x3  ■ 

•  x5 

xll 

=  k2 

e5  =  x8  - 

x3  +  x5 

xl2 

=  k3 

xl3 

=  k4 

dxl/dt  = 

x9  ♦  el 

dx2/dt  = 

xlO  *  e2  ♦  el 

dx4/dt  = 

xl2  *  e3 

dx5/dt  = 

xl3  *  e4 

MOD375  also  has  two  surface  sites  with  the  fust  one  undergoing  a  conditioning  process. 
Hydrazine  binds  to  both  surface  types  and  decomposes  forming  ammonia  and  unspecified 
products.  In  this  model,  the  formation  of  ammonia  returns  an  unusable  surface  site  while  the 
formation  of  the  unspecified  product  returns  a  usable  site. 

h.  MOD380 


ki 


1. 

IE  + 
g-xl 

SI  - 

Sl-xl 

- > 

HZ:S1 

xl 

2. 

HZ:S1 

xl-x2 

k2 

. > 

I 

x2 

+  SI 

Sl-xl+x2 

3. 

I 

x2-x3 

k3 

. > 

NH3 

x3 

yl  =  x4  -  xl  -  x2  -  x3 
y2  =  x3 
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xl  =HZ:S1 

x2  =  I 

x3  =  x3 

dxl/dt  =  ki  (g-xl)  (SI 

x4  =  g 

dxl/dt  =  x5  *  (x4-xl) 

x5  =  ki 

dx2/dt  =  k2  (xl-x2) 

x6  =  k2 

dx2/dt  =  x6  *  (xl-x2) 

x7  =  k3 

dx3/dt  =  k3  (I) 

x8  =  Si 

dx3/dt  =  x7  *  (x2-x3) 

el  =  x8-xl-x2 

el 


MOD380  is  a  very  simple  model  (three  differential  equations)  with  very  little  physically 
signiAcant  meaning.  The  model  incorporates  one  surface  site  which  binds  with  hydrazine  to  then 
forms  an  intermediate  which  then  goes  to  ammonia.  Even  though  the  model  is  overly  simple  it  was 
useful  as  a  data  set  feasibility  model.  If  it  was  uncertain  whether  a  solution  to  any  model  could  be 
obtained  with  a  particular  data  set,  this  model  was  used  to  find  out  whether  the  data  was  capable  of 
producing  a  solution.  The  solution  for  this  model  was  quite  easy  to  find  and  was  relatively  quick 
in  terms  of  computation  time. 

i.  MOD385 


ki 


1. 

ffi  + 
g-xl 

SI  — 

Sl-xl 

--> 

HZ:S1 

xl 

2. 

HZ:S1 

xl-x2 

k2 

. > 

I 

x2 

+  SI 

Sl-xl+x2 

3. 

I 

x2-x3 

1 

1 

1 

V 

NH3 

x3 
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4. 


I 

x2-x3-x4 


> 


Prod 

x4 


k4 


yl  =  x5  -  xl  -  xl  -  x2  -  x4 
y2  =  x3 

xl  =HZ;S1 
x2  =  I 
x3  =  x3 
x4  =  x4 
x5  =  g 
x6  =  ki 
x7  =  k2 
x8  =  k3 
x9  =  SI 
xlO  =  k4 


dxl/dt  =  ki  (g-xl)  (Sl-xl+x2) 

dxl/dt  =  x6  *  (x4-xl)  *  el 

dx2/dt  =  k2  (xl-x2) 

dx2/dt  =  x7  *  el 

dx3/dt  =  k3  (I) 

dx3/dt  =  x8  *  e2 

dx4/dt  =  k4  (I) 

dx4/dt  =  x9  *  e2 

el  =  xl-x2 
e2  =  x2  -  x3  -  x4 


MOD385  is  an  extension  of  MOD380.  It  too  binds  to  a  surface  which  then  yields  an 
intermediate  and  an  available  surface  site.  This  intermediate  then  forms  ammonia  and  unspecified 
products. 

j.  MOD390 

ki 

1.  ffi  +  SI  . >  HZ:S1 

g-xl  Sl-xl  xl 
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2.  HZ:S1  . > 

xl-x2 

k3 

3.  I  > 

x2-x3 

k4 

4.  I  > 

x2-x3-x4 


yl  =  x5  -  xl  -  xl  -  x2  -  x4 

y2  =  x3 

xl  =  HZ;S1 

x2  =  I 

x3  =  x3 

dxl/dt 

=  ki  (g-xl)  (x6-xl+x2+x4) 

x4  =  x4 

dxl/dt 

=  x7  *  (x5-xl)  *  (x6-el) 

x5  =  g 

dx2/dt 

=  k2  (xl-x2-x4) 

x6  =  SI 

dx2/dt 

=  x8  *  el 

x7  =  ki 

dx3/dt 

=  k3  (x2-x3) 

x8  =  k2 

dx3/dt 

=  x9  ♦  (x2  -  x3) 

x9  =  k3 

dx4/dt 

=  k4  (xl-x2-x4) 

xlO  =  k4 

dx4/dt 

=  xlO  ♦  el 

el  =  xl-  x2  -  x4 

I  +  SI 
x2  Sl-xl+x2 


NH3 

x3 


Prod  +  SI 
x4  Sl-xl+x2+x4 


In  MOD390,  hydrazine  binds  to  a  surface  site.  The  bound  hydrazine  then  takes  one  of 
two  paths.  One  path  is  the  formation  of  an  intermediate  and  the  return  of  the  surface  site.  The 
intermediate  then  goes  on  to  form  ammonia.  The  second  path  is  for  the  bound  hydrazine  to  form 
unspecified  products  and  return  a  surface  site. 


Representative  models  Hts  for  selected  chamber  data  are  shown  in  Appendix  S. 


SECTION  IV 


RESULTS  AND  DISCUSSION 


A.  NO  ADDED  PLATES 
1.  Inert  Gas  Stability  Runs 

The  first  set  of  experiments  which  were  conducted  in  the  chamber  was  designed  to  test  the 
stability  of  inert  gases.  The  initial  run  used  21  ppm  methane  (CH4)  in  one  atmosphere  (760  Torr) 
of  dry,  ultra-pure  helium.  This  was  followed  by  a  run  with  both  CH4  (at  19.3  ppm)  and  sulfur 
hexafluoride  (SFg)  (at  0.58  ppm)  in  dry,  ultra-pure  helium.  These  runs  were  followed  for  800  and 
300  hours  respectively.  Generally,  there  was  a  slight  decrease  in  species  concentration  in  the  first 
run  (Figure  5),  but  the  CH4  -  SFg  plots  showed  essentially  constant  absorbance  values  (Rgure  6). 
Thus,  inert  gases  appear  to  be  stable  in  the  chamber,  as  anticipated. 


Time  (hr) 


Rgure  5.  Plot  of  Normalized  Methane  Absorbance  versus  Time  in  the  Spherical  Chamber. 
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Figure  6.  Plots  of  Methane  and  Sulfur  Hexafluoride  Absorbance  versus  Time  in  the  Spherical 
Chamber. 


2.  Hydrazine  Stability  in  Helium  -  Series  1 

These  inert  gas  stability  experiments  were  followed  by  a  series  of  experiments  to  determine 
the  stability  of  vapor-phase  hydrazine  in  the  chamber.  The  initial  set  of  hydrazine  (HZ) 
experiments  were  conducted  in  pure,  dry  helium.  The  set  consisted  of  four  separate  runs.  The 
first  run  ctmsisted  of  50  ppm  HZ  with  20  ppm  CH4  as  an  internal  standard  in  dry,  pure  helium.  At 
the  conclusion  of  the  first  run,  the  chamber  was  pumped  down  to  685  Torr  and  a  new  reference 
spectrum  was  recorded.  Then  another  50  ppm  HZ  were  added  and  its  decay  was  followed.  This 
procedure  was  repeated  fcx  a  total  of  four  runs. 
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The  results  of  this  initial  HZ  stability  test  were  disappointing.  Although  care  was  taken  to 
minimize  the  surface-to-volume  ratio  in  the  chamber  design  and  to  coat  all  possible  interior  surfaces 
with  Teflon®,  the  half-life  of  HZ  in  the  initial  test  was  only  10.5  hours.  However,  in  the 
subsequent  runs  in  the  Hrst  sequence,  this  increased  considerably  so  that  by  the  fourth  run  the  half- 
life  was  about  100  hours.  These  data  are  plotted  in  Figure  7. 


Figure  7.  Plots  of  Normalized  Hydrazine  Absorbance  versus  Time  in 
Pure,  Dry  Helium  (No  Added  Plates). 

The  conditioning  effect  noted  in  this  series  of  runs  was  quite  dramatic.  It  was  noted  in 
most  runs  conducted  in  the  chamber.  Indeed,  this  type  of  behavior  is  quite  common  for  molecules 
(like  water  and  hydrazine)  which  have  a  strong  affinity  for  most  surfaces. 

Methane  was  used  in  these  runs,  and  in  many  subsequent  runs,  as  an  internal  standard  to 
determine  l(xig-term  stability  in  the  chamber.  Over  the  course  of  many  runs,  it  was  determined  that 


34 


there  was  no  observed  loss  of  methane,  so  its  use  was  eventually  discontinued.  No  further 
methane  plots  are  included  in  this  report. 

3.  Desorption  Experiments 

After  this  first  series  of  runs,  two  experiments  were  conducted  to  determine  the  desorption 
behavior  of  any  surface-bound  HZ.  In  the  first,  the  chamber  was  pumped  down  to  10  millitorr 
(after  concluding  Run  4  above)  and  then  filled  to  760  Torr  with  pure,  dry  helium.  Then  it  was 
monitored  for  90  hours. 

At  the  end  of  this  time,  a  small  amount  (about  2  ppm)  of  HZ  had  appeared  along  with  a 
small  amount  (about  1  ppm)  of  ammonia  (NH3).  Species  concentrations  were  calculated  by 
measuring  the  absorbance  values  at  specific  analytical  peaks  and  using  Beer's  law  with  absorption 
coefficients  from  earlier  works:  HZ  =  4.6  cm‘latm‘1,  base  e*  and  NH3  =  35  cm'^atm'^,  base  e 
(Reference  10).  The  spectrum  of  the  chamber  contents  at  the  beginning  of  this  experiment  and  at 
the  end  are  compared  in  Figure  8. 


and  Ending  of  a  Desorption  Experiment  (No  Added  Plates). 

*Unpablisbed  value  from  earlior  woik  in  a  Teflon^-fibn  reaction  chamber.  This  value  is  also  consistent  with  the 
observed  absorbance  values  used  m  this  study  based  on  a  concentration  of  SO  or  100  ppm  and  a  path  length  of  100  or 
so  meters. 


35 


Then  the  chamber  was  pumped  down  to  200  milliTorr  and  filled  with  humid  helium.  The 
humidity  was  supplied  by  injecting  8  milliliters  (mL)  of  water  into  the  chamber  manifold,  then 
heating  the  manifold  and  vaporizing  the  water  into  the  chamber  while  filling  it  with  helium.  Once 
the  total  pressure  was  760  Torr,  the  chamber  contents  were  again  monitored,  this  time  for  240 
hours.  At  the  end  of  this  experiment,  there  was  no  evidence  of  any  HZ  but  about  3  ppm  of  NH3 
had  formed. 

4.  Hydrazine  Stability  in  Helium  -  Series  2  and  3 

Next,  a  second  series  of  runs  were  made  to  evaluate  the  stability  of  HZ  vapor  in  the 
chamber  and  to  characterize  chamber  conditioning  processes.  These  runs  were  conducted  in  pure, 
dry  helium.  The  results  were  similar  to  the  first  series  of  rans. 

Following  the  second  series  of  runs,  the  chamber  was  heated  to  45  *C  and  pumped  out 
overnight  Then  it  was  cooled  to  20  “C  in  preparation  for  the  third  series  of  runs.  The  third  series 
of  runs  was  cut  short  and  consisted  of  a  single  run.  This  run  was  somewhat  unusual  in  that  it  did 
not  decay  as  rapidly  as  previous  runs.  There  was  no  humid  desorption  run  between  Series  2  and  3 
of  the  HZ  stability  runs  as  there  had  been  between  Series  1  and  2.  This  may  have  caused  the 
chamber  to  have  remained  in  a  more  'conditioned'  state  for  the  series  3  run.  The  results  of  the  runs 
made  in  Series  2  and  3  are  shown  in  Figure  9. 

5.  Hydrazine  Stability  in  20  percent  Oxygen  -  80  percent  Helium 

Following  the  series  3  run  described  in  para  in.A.4  above,  another  desorption  run  was 
conducted.  In  this  instance,  7.8  mL  of  distilled  water  were  vaporized  into  the  chamber  in  one 
atmosphere  of  helium.  The  system  was  monitored  for  5  days  (20-24  Jun  88).  At  the  end  of  this 
time  there  was  again  about  2  ppm  NH3  produced  but  no  additional  HZ.  The  chamber  then  sat  idle 
for  about  2  months  before  experiments  resumed. 

The  initial  runs  with  HZ  in  a  20  percent  oxygen  -  80  percent  helium  atmosphere  were 
conducted  between  23  Aug  88  and  30  Aug  88.  The  hydrazine  was  introduced  as  a  vapor  from  the 
portable  vacuum  system  (using  the  516.3  mL  sample  bulb,  four  10-Torr  aliquots)  and  flushed  into 
the  chamber  (with  the  mixing  fan  running)  with  pure,  dry  helium  to  610  Torr.  Then  ultra-pure 
oxygen  was  introduced  to  bring  the  total  pressure  to  760  Torr.  Then  species  concentration 
monitoring  was  begun. 
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Hgure  9.  Plots  of  Hydrazine  Decay  in  the  Spherical  Chamber  (Series  2  and  3, 

No  Added  Plates). 

The  initial  results  were  disappointing.  The  half-lives  were  less  than  10  hours  although  care 
had  been  taken  to  minimize  surface  catalysis  effects.  The  decay  curves  are  plotted  in  Figure  10. 
The  seven  runs  in  this  series  were  sequential,  but  not  identical  in  their  preparation.  After  Runs  1 
and  2,  the  chamber  was  pumped  down  to  0.1  Toir  in  preparation  for  the  next  run.  After  Runs  3-6, 
the  chamber  was  pumped  down  to  700  Torr  in  preparation  for  the  next  run. 

Some  mild  chamber  conditioning  was  evident  in  the  flrst  three  runs.  However,  the  rinal 
four  runs  showed  no  additional  conditioning  effects  and  were  closely  grouped  together. 

A  small  amount  of  ammonia  formed  in  these  runs  (about  2  ppm).  Some  water  was  also 
formed;  however,  no  attempt  was  made  to  quantify  the  water  until  later  in  this  research. 
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Tim*  (hr) 

Figure  10.  Plots  of  Hydrazine  Decay  in  80  Percent  Helium  -  20  Percent  Oxygen 
in  the  Spherical  Chamber  (Dry  Conditions,  No  Added  Plates). 

6.  Additional  Chamber  Characterization  and  Conditioning  Runs 

Following  the  initial  HZ  plus  20  percent  oxygen  runs,  the  chamber  was  not  used  for  about 
three  months.  This  was  followed  by  another  set  of  HZ  decay  runs  in  dry  helium.  The  first  run 
was  from  25  Nov  88  to  06  Dec  88.  Another  objective  of  this  run  was  to  obtain  spectra  with 
increased  time  resolution.  This  was  done  to  test  the  sampling  period  in  a  numerical  model  being 
developed  to  describe  HZ  decay  in  the  chamber.  The  spectra  were  collected  as  interferograms  with 
60  co-added  scans  and  then  processed  off  line. 


One  additional  run  was  made  to  test  the  model,  this  time  using  256  co-added  scans  in  the 
data  acquisition.  This  run  went  from  06  Jan  89  to  09  Jan  89.  Both  of  these  runs  in  dry  helium 
produced  a  HZ  decay  curve  which  was  about  the  same  as  the  earlier  runs  under  the  same 
conditions.  The  HZ  half-life  was  again  about  70-80  hours.  As  before  under  these  conditions,  a 
small  amount  of  ammonia  was  produced. 
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Following  these  two  rans,  it  was  decided  to  test  the  behavior  of  HZ  in  the  chamber  with 
pure  air  from  the  Aadco  unit  The  objective  of  this  run  was  to  see  if  perhaps  the  rapid  decay  of  HZ 
in  the  20  percent  oxygen  runs  had  been  caused  by  some  impurity  in  the  oxygen  itself.  The  run  in 
pure  air  had  the  same  increased  decay  rate  as  previous  runs  in  synthetic  air. 

Because  of  concern  over  the  increased  decay  rate  of  HZ  when  oxygen  was  present,  it  was 
decided  to  coat  all  possible  surfaces  inside  the  chamber  (which  were  not  Teflon®  coated)  with 
paraffin  wax.  To  accomplish  this,  the  mirrors  were  removed  from  the  chamber  They  were  pre¬ 
heated  with  a  heat  gun  and  then  brushed  on  their  sides  with  melted  paraffin  wax.  The  wax  coating 
was  also  applied  to  the  brass  shaft  of  the  mixing  fan  and  to  the  interior  of  the  KF  elbows  used  to 
connect  to  external  vacuum  gauges.  It  was  hoped  that  this  treatment  would  remove  potential 
catalytic  surfaces. 

The  interior  chamber  walls  were  also  cleaned  by  rubbing  them  with  a  laboratory  wipe 
soaked  in  acetone/methanol.  This  produced  a  brown  deposit  on  the  wipe  indicating  that  surface 
reactions  had  been  occurring. 

Having  completed  these  attempts  to  passivate  and  clean  the  chamber  surfaces,  another 
series  of  runs  was  made  with  pure  air  from  the  Aadco  unit.  These  runs  did  show  some 
improvement;  the  half-life  of  the  HZ  decay  increased  by  a  factor  of  about  two.  A  comparison  of 
HZ  decay  behavior  before  and  after  the  wax  coating  is  shown  in  Figure  11.  One  final  attempt  was 
made  to  decrease  the  reactivity  of  the  interior,  non-Teflon-coated  surfaces  by  coating  the  two  4-in 
Pyrex®  view  ports  with  paraffin  wax.  This,  however,  had  no  effect  on  the  decay  of  HZ  in  air  and 
the  wax  was  later  removed  from  these  view  ports. 

One  final  attempt  was  made  to  passivate  the  chamber  and  decrease  surface-catalyzed  decay 
processes.  This  was  to  expose  the  chamber  to  a  large  concentration  of  HZ  vapor,  about  1000 
ppm,  then  pump  it  out.  The  hope  was  that  this  large  dose  of  HZ  would  cover  all  the  reactive 
surface  sites  and  prevent  them  from  further  reactions  later  on.  The  high  HZ 
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Figure  1 1.  Plot  of  Hydrazine  Decay  in  the  Spherical  Chamber  Before  and  After 
Coating  the  Mirrors  and  Other  Metal  Surfaces  with  Paraffin  Wax 
(No  Added  Plates) 


concentration  was  allowed  to  set  overnight  Then  the  chamber  was  pumped  out  and  a  'normal'  run 
was  conducted  with  50  ppm  HZ  in  pure  air.  The  resulting  decay  curve  was  essenitally  identical  to 
the  one  labeled  'with  02,  after  wax  (run  3)'  in  Figure  1 1.  In  other  words,  the  high  HZ  treatment 
had  no  observable  effect  on  the  surface  activity  of  the  chamber. 

After  this,  one  additional  run  was  completed  to  characterize  the  stability  of  HZ  in  dry 
helium  after  the  wax  and  passivation  treatments.  This  run  was  followed  for  IS  days.  The  decay 
pattern  was  about  the  same  as  earlier  runs  under  similar  conditions.  This  run  is  shown  in  Figure 
12. 
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Figure  12.  Plot  of  HZ  decay  in  dry  helium  from  20  Apr  -  5  May  89.  (Connecting  line  is  only 
a  visual,  not  a  model,  fit) 

The  data  from  the  runs  with  pure,  dry  helium  were  Ht  best  with  the  model  MOD361.  Even 
though  this  is  a  developmental  model,  it  shows  that  a  two-site  mechanism  provides  an  appropriate 
basis  for  a  kinetic  reaction  mechanism  under  these  reaction  conditions.  Other  models  gave  poorer 
to  much  poorer  fits. 

No  runs  were  conducted  with  humid  helium  in  this  initial  series  of  characterization 
experiments. 

In  an  80  percent  helium  and  20  percent  oxygen  atmosphere,  most  of  the  models  (with  the 
exception  of  those  with  intermediate  formation)  gave  very  good  fits.  The  MOD361  model  has 
slightly  better  fits  than  the  others.  This  two-site  approach  also  appears  to  cover  the  case  of  added 
oxygen. 

A  summary  of  the  model  fits  for  the  experiments  with  no  plates  present  is  given  in 
Appendix  N. 
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B.  TEFLON®.COATED  ALUMINUM  PLATES 


To  characterize  the  reactivity  of  the  Teflon®  surface  of  the  chamber,  several  runs  were 
conducted  where  20  Teflon®-coated  aluminum  plates  were  placed  inside  the  chamber.  This  had 
the  effect  of  doubling  the  surface  area  while  maintaining  the  same  volume. 

The  initial  run  was  conducted  in  pure, dry  helium.  The  approximate  HZ  half-life  was  45 
hours.  This  was  two  to  three  times  faster  than  previous  runs  without  plates  under  similar 
conditions  and  gave  strong  evidence  that  the  Teflon® -coated  surfaces  are  providing  sites  for 
hydrazine  sorption. 

This  run  was  followed  by  a  series  of  three  runs  in  80  percent  dry  helium  and  20  percent 
oxygen.  Again,  the  effects  of  the  added  Teflon®  surfaces  were  evident.  The  half-life  of  the  HZ 
under  these  conditions  was  about  10  hours,  whereas  it  had  been  about  22  hours  before  the  plates 
were  added.  These  runs  are  plotted  in  Figure  13. 
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Figure  1 3.  Plots  of  HZ  Decay  in  Spherical  Chamber  with  20  FEP-Teflon®-Coated 
Aluminum  Plates. 
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Ammonia  formation  was  enhanced  by  the  presence  of  this  added  surface  area  in  the  case  of  the 
run  with  no  oxygen  (about  twice  as  much  was  produced).  However,  when  oxygen  was  added, 
there  was  no  increase  in  ammonia  production  over  20  percent  oxygen  runs  without  the  added 
plates. 

For  runs  both  without  and  with  20  percent  oxygen,  model  MOD360  gave  the  best  fits.  Other 
two-site  models  also  gave  good  fits  with  one  or  two  exceptions  on  individual  runs.  The  one-site 
models  with  intermediates  gave  poor  fits.  The  similarity  of  models  MOD  360  and  MOD361  shows 
that  a  two-site  approach  is  a  good  description  of  the  processes  which  occur  when  only  Teflon® 
surfaces  are  present  These  are  both  working  models,  however,  and  additional  refinements  can 
probably  be  made. 

A  summary  of  model  fits  to  these  runs  with  FEP-Teflon®-coated  aluminum  plates,  present  is 
given  in  Appendix  O. 


C.  WATER  CALIBRATION  SPECTRA 

The  tests  on  the  surface  reactivity  of  different  materials  were  interrupted  so  that  quantitative 
water  reference  spectra  could  be  obtained  for  use  in  monitoring  HZ  decay  runs.  Since  the  entire 
optical  system  of  the  spectrometer  and  chamber  coupling  area  were  purged  with  dry,  pure  air,  there 
was  reasonable  expectation  that  reference  spectra  of  water  could  be  obtained  by  calibrated  sampling 
in  the  chamber. 

First,  the  vapor  transfer  method  was  tried.  Water  vapor  was  expanded  into  an  evacuated 
sample  bulb  to  a  known  pressure  and  then  flushed  into  the  chamber  with  dry  helium.  Water  has  a 
rich  rotational  structure  within  its  three  primary  vibrational  bands.  The  U2  bending  region  from 
1300-2000  cm~^  was  examined  for  an  area  which  would  not  be  affected  by  HZ  absorption  bands. 
Two  rotational  bands  were  selected,  one  at  17(X).362  cm'l  and  the  other  at  1652.817  cm’l.  Both 
of  these  bands  were  monitored  to  see  how  linear  they  were  as  a  function  of  concentration.  They 
are  shown  in  Figure  14. 

The  initial  results  confirmed  that  water  will  adsorb  onto  most  surfaces  available  to  it  in  a  given 
experimental  apparatus.  Thus,  the  samples  first  prepared  in  a  2.0-Liter  glass  sampling  bulb  were 
later  tried  in  a  0.125-Liter  glass  bulb.  However  both  showed  an  unacceptable  amount  of  variation 
in  absorbance  from  one  sample  to  succeeding  duplicate  samples. 
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Figure  14.  Part  of  the  Water  Vt^r  Infrared  Spectrum  Showing  the  Analytical 
Peaks  Used  in  the  Quantitative  Measurements. 

Liquid  sampling  was  used  to  address  this  problem.  Water  samples  in  microliter  (p.L) 
quantities  were  injected  into  the  heated  chamber  sample  manifold  and  vaporized  then  flushed  into 
the  chamber  with  dry  helium.  This  techniques  proved  somewhat  more  reproducible.  However, 
further  experiments  showed  that  the  eventual  magnitude  of  the  absorbance  value  at  any  given 
infrared  peak  was  determined  not  only  by  the  amount  of  sample  injected,  but  also  by  the  time  after 
the  injection  when  the  spectrum  was  recorded. 

Because  of  this  time-varying  behavior,  the  nmmal  concentration  versus  absorbaiK^e  calibration 
curve  would  not  work  for  water.  The  first  iq)proach  to  deal  with  this  problem  was  to  obtain  data  on 
the  absorbance  of  water  samples  at  set  concentrations  as  a  function  of  time.  Then  plot  the 
absorbance  values  versus  time  and  use  the  intercept  as  the  'zero  time'  value.  Then  these  intercept 
('i.e.,  'zero  time')  values  could  be  plotted  against  sample  concentration  to  give  a  valid  calibration 
curve.  The  data  necessary  to  complete  this  analysis  were  obtained  by  recording  a  series  of  infrared 
spectra  from  samples  of  different  concentration  levels  (0.0,  2.55, 5.1, 12.8,  and  25.5  ppm)  as  a 
function  of  time.  At  etu:h  time  interval,  four  spectra  were  acquired  with  each  ctmsisting  of  512  co¬ 
added  scans.  The  spectra  were  acquired  at  a  resolution  of  1.0  cm‘l.  These  sets  of  spectra  were 
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acquired  over  periods  of  time  ranging  from  25  to  over  100  hours.  Each  concentration  level  was 
repeated  at  least  two  times.  Methane  was  used  as  a  calibration  gas  in  these  experiments. 

These  initial  calibration  curves  were  generated  by  the  following  procedure.  The  absorbance 
values  from  four  separate  experimental  runs  at  the  two  analytical  wavelengths  (1653  cm'l  and 
17(X)  cm*l)  were  averaged.  The  four  methane  absorbance  values  at  its  analytical  peak  (1306  cm'l) 
were  also  averaged.  This  average  methane  value  was  then  normalized  to  a  set  value  of  0.800.  The 
correction  factor  necessary  to  make  this  adjustment  was  then  applied  to  each  of  the  averaged  values 
for  the  water  peaks.  This  gave  the  'corrected  average’  values  for  the  water  peaks.  These 
'corrected  averages’  were  then  plotted  versus  the  concentration  of  the  water  samples  to  give  a 
calibration  curve. 


The  data  for  these  analyses  are  listed  in  Appendix  K.  An  example  calculation  will  serve  to 
demonstrate  the  process. 


1.  Obtain  and  average  the  analytical  peak  data. 


_ water  absorbance _ 

methane  absorbance 

^oeciQiai 

1653  cm-l 

1306  cm-l 

1 

0.295 

0.278 

0.724 

2 

0.296 

0.279 

0.726 

3 

0.293 

0.274 

0.724 

4 

0.295 

0.278 

0.718 

(ave) 

0.295 

0.278 

0.723 

2.  Normalize  the  methane  peak  to  the  reference  value  of  0.800 
0.800/0.723  =  1.107 


3.  Apply  this  'correction  factor'  to  the  water  peaks. 

0.295  X  1.107  =  0.326  and  0.278  X  1.107  =  0.308 


The  data  for  the  1700  cm'^  peak  were  used  to  determine  the  eventual  calibration  curve.  Plots 
of  the  individual  curves  used  to  define  the  'zero  time'  absorbance  values  are  shown  in  Figures  15  - 
19. 


As  previously  noted,  the  intercept  values  for  these  plots  were  plotted  against  the 
concentrations  to  form  the  calibration  curve  for  water  (at  1700  cm’l).  This  plot  is  shown  in  Figure 
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Absorbance  (1700  cnr') 


20.  The  slope  of  this  curve  can  be  used  to  determine  the  absorption  coefficient  for  water  (base  e)  at 
1700  cm’l  (base  e)  for  water  vapor  at  1700  cm‘l.  The  calculations  are  shown  below. 


Beer's  law  (base  e)  can  be  expressed  as 


ln(10)A  =  elc 


Tima  (hr)  Tima  (hr) 


Rgure  15.  Calibration  Curve  for  Rgure  16.  Calibration  Curve  for 

0.0  ppm  Water.  2.55  ppm  Water, 


Tima  (hr)  Tima  (hr) 

Figure  17.  Cahbration  Curve  for  Figure  18.  Calibration  Curve  for 

5, 1  ppm  Water.  12.8  ppm  Water. 


Tima  (hr) 

Figure  19.  Calibration  Curve  for 
25.5  ppm  Water. 
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Where  A  is  the  absorbance  (base  10),  1  is  the  path  length  (cm),  e  is  the  extinction  coefficient  (base 
e)  and  c  is  the  concentration  (atm).  The  above  expression  may  be  rearranged  slightly  to  give, 

A  =  [l/ln(10)]ec 


Figure  20.  Calibration  Curve  for  Water  Vapor  Based  on  the  'Zero  Time 
Intercept  Data  from  Figures  15-19  above. 


Thus,  if  absorbance  is  plotted  against  concentration  (i.e..  Figure  20),  the  slope  is  [l/ln(10)]e ,  or 
e  =  [ln(10)/l]  (slope).  Substituting  the  value  of  the  slope  from  Figure  20  and  the  pathlength  (106 
meters)  gives. 


e  =  [(2.303)/(1.06  X  lO^  cra)](8.297  X  10-3)(lo6  atra'l) 

E  =  l.Scm'l  atm'l 
This  is  a  relatively  weak  band. 

Further  consideration  of  the  time  varying  nature  of  the  water  absorbance  versus  concentration 
curve,  resulted  in  the  decision  to  consider  a  3-dimensional  calibration  curve,  or,  more  precisely,  a 
calibration  plane.  The  first  attempt  was  made  by  simply  perframing  an  analysis  (using  the  program 
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STATGRAPHICS®,  V  4.0,  STSC,  Inc.,  Rockville,  MD)  on  the  absorbance,  time,  concentration 
data  as  obtained.  This  gave  an  initial  plane  with  absorbance  as  the  dependent  variable  and  time  and 
concentration  as  the  independent  variables.  The  equation  of  the  plane  was, 

A  =  0.007 169(conc.)  +  0.002001 (time)  +  0.109257 
with  a  fitting  parameter,  r2  =  0.943. 

In  an  attempt  to  improve  the  fit  somewhat,  the  following  was  tried.  Each  set  of  measurement 
time  versus  absorbance  data  (for  the  1700  cm'l  line)  was  plotted  and  fit  with  the  best  straight  line 
(i.e.,  the  fits  from  Figures  15-19  above).  Then  the  equation  for  each  line  was  used  to  generate 
absorbance  values  for  an  arbitrary  set  of  measurement  times  from  0-100  hours  at  5-hour  intervals. 
This  was  accomplished  by  using  a  short  computer  program  written  in  GWBASIC  (Appendix  L). 

The  results  of  this  program  are  listed  in  Table  1.  It  was  clear  that  there  were  problems  with 
the  values  for  0.0  ppm  and  2.55  ppm.  The  parabolic  fit  for  the  0.00  ppm  data  caused  the 
calculated  absorbance  value  to  peak  at  60  hours,  then  decline.  Thus,  only  the  data  points  from  0  - 
60  hours  were  used.  In  the  case  of  the  2.55  ppm  data,  the  values  were  larger  than  the  5.1  ppm 
data  after  the  20  hour  point  Therefore,  the  2.55  ppm  data  were  dropped  entirely.  The  remaining 
data  points  were  plotted  in  three  dimensions  with  absorbance  as  the  dependent  variable  by  using 
the  STATGRAPHICS  program.  The  results  were  somewhat  improved.  The  improved  equation 
for  the  best  fit  plane  was: 

A  =  0.0074403  (cone)  +  0.002075  (time)  +  0.100147 
The  fitting  coefficient  was  0.984.  This  calibration  plane  is  shown  in  Figure  21. 


Table  1 .  WATER  CALIBRATION  DATA  GENERATED  FROM  THE 
BEST  FIT  LINES  OF  ABSORBANCE  -  TIME  PLOTS  FOR 
EACH  CONCENTRATION  VALUE. 


lime 

(hr) 

0.0 

ppm 

2.55 

ppm 

5.1 

ppm 

12.8 

ppm 

25.5 

ppm 

0 

0.059 

0.131 

0.157 

0.175 

0.303 

5 

0.083 

0.148 

0.166 

0.186 

0.313 

10 

0.105 

0.165 

0.176 

0.197 

0.322 

15 

0.125 

0.182 

0.186 

0.209 

0.332 
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Table  1 .  WATER  CALIBRATION  DATA  GENERATED  FROM  THE 
BEST  FIT  LINES  OF  ABSORBANCE  -  TIME  PLOTS  FOR 
EACH  CONCENTRATION  VALUE.  (CONCLUDED) 


Time 

(hr) 

0.0 

_ppra 

2.55 

ppm 

5.1 

ppm 

12.8 

ppm 

25.5 

iPPm 

o341 

25 

0.35 

30 

0.36 

35 

0.183 

0.25 

0.225 

0.253 

0.369 

40 

0.192 

0.267 

0.235 

0.264 

0.379 

45 

0.199 

0.284 

0.245 

0.275 

0.388 

50 

0.204 

0.301 

0.255 

0.286 

0.398 

55 

0.206 

0.318 

0.264 

0.297 

0.407 

60 

0.207 

0.335 

0.274 

0.308 

0.417 

65 

0.205 

0.351 

0.284 

0.319 

0.426 

70 

0.201 

0.368 

0.294 

0.33 

0.435 

75 

0.195 

0.385 

0.303 

0.341 

0.445 

80 

0.187 

0.402 

0.313 

0.352 

0.454 

85 

0.177 

0.419 

0.323 

0.363 

0.464 

90 

0.165 

0.436 

0.333 

0.374 

0.473 

95 

0.151 

0.453 

0.343 

0.385 

0.483 

100 

0.134 

0.47 

0.352 

0.396 

0.492 

Figure  21.  Plot  of  Absorbance  Versus  Concentration  and 
Measurement  Time  for  the  Water  Data 
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The  plot  of  the  expected  absorbance  values  versus  the  predicted  values  (based  on  the  best  fit  plane 
equation)  are  shown  in  Figure  22.  To  test  the  ability  of  this  equation  to  find  an  unknown 
concentration  value  from  an  absorbance  -  time  value,  a  series  of  calculations  were  done  comparing 
measured  concentrations  with  concentrations  calculated  from  the  best  fit  plane  equation.  The 
results  are  shown  in  Table  2. 


Hgure  22.  Plot  of  Exp^ted  versus  Predicted  Absorbance  Values  Based  on  the 
Water  Calibration  Plane  Shown  in  Bgure  21. 

The  results  show  that  the  calibration  plane  vali^s  were  generally  quite  good  at  the  upper 
concentration  range,  but  too  high  at  the  lower  concentrations.  This  best-fit  plane  equation  was 
subsequently  used  for  calculating  the  water  concentration  values  from  the  measurement  time  and 
absorbance  values  of  the  FT-IR  data.  This  was  accomplished  by  simply  including  the  best-fit 
plane  equation  in  the  spreadsheet  calculations  which  were  made  on  the  raw  data  from  the  chamber 
(see  Appendix  A). 
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Table  2.  WATER  CALmRATTON  DATA.  COMPARISON  OF 
ACTUAL  CONCENTRATIONS  INJECTED  VERSUS 
CONCENTRATIONS  CALCULATED  FROM  BEST  FIT 
PLANE  (DATA  ARE  FROM  JULY  -  AUGUST  1989). 


[H20] 

injected 

(ppm) 

[H20] 

calc. 

(ppm) 

Measurement 

Time 

(hr) 

Absorbance 

Run  No. 

0.00 

-4.732 

1.958 

0.069 

2 

0.00 

-3.367 

5.254 

0.086 

2 

0.00 

-0.666 

19.666 

0.136 

2 

0.00 

1.949 

29.567 

0.176 

2 

0.00 

0.631 

43.933 

0.196 

2 

0.00 

1.180 

1.482 

0.112 

3 

0.00 

2.079 

8.861 

0.134 

3 

0.00 

1.570 

22.734 

0.159 

3 

0.00 

2.112 

32.358 

0.183 

3 

0.00 

2.708 

46.607 

0.217 

3 

0.00 

3.514 

56.729 

0.244 

3 

0.00 

2.565 

70.735 

0.266 

3 

0.00 

2.540 

80.946 

0.287 

3 

0.00 

-4.355 

166.879 

0.414 

3 

0.00 

-8.267 

238.743 

0.534 

3 

2.55 

1.920 

1.236 

0.117 

1 

2.55 

4.608 

5.576 

0.146 

1 

2.55 

9.900 

22.262 

0.220 

1 

2.55 

6.058 

1.340 

0.148 

2 

2.55 

5.136 

4.164 

0.147 

2 

2.55 

O.920 

17.526 

0.188 

2 

2.55 

5.922 

1.346 

0.147 

3 

2.55 

5.032 

4.538 

0.147 

3 

2.55 

5.549 

18.106 

0.179 

3 

5.10 

8.271 

1.114 

0.164 

1 

5.10 

9.566 

3.700 

0.179 

1 

5.10 

11.171 

17.706 

0.220 

1 

5.10 

4.628 

1.167 

0.137 

2 

5.10 

4.343 

4.114 

0.141 

2 

5.10 

6.162 

100.250 

0.354 

2 

5.10 

5.090 

116.624 

0.380 

2 

12.80 

9.949 

1.362 

0.177 

1 

12.80 

10.476 

5.256 

0.189 

1 
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Table  2.  WATER  CALIBRATION  DATA.  COMPARISON  OF 
ACTUAL  CONCENTRATIONS  INJECTED  VERSUS 
CONCENTRATIONS  CALCULATED  FROM  BEST  FIT 
PLANE  (DATA  ARE  FROM  JULY  -  AUGUST  1989). 
[CONCLUDED] 


[H20] 

injected 

(ppm) 

[H20] 

calc. 

(ppm) 

Measurement 

Time 

(hr) 

Absorbance 

Run 

12.80 

13.321 

20.599 

0.242 

1 

12.80 

9.440 

1.261 

0.173 

2 

12.80 

8.480 

3.739 

0.171 

2 

12.80 

9.997 

22.879 

0.222 

2 

12.80 

11.601 

48.938 

0.288 

2 

12.80 

11.748 

66.241 

0.325 

2 

12.80 

11.560 

70.288 

0.332 

2 

12.80 

10.496 

90.010 

0.365 

2 

25.50 

26.343 

1.857 

0.300 

1 

25.50 

29.004 

4.845 

0.326 

1 

25.50 

27.241 

29.963 

0.365 

1 

25.50 

25.244 

41.461 

0.374 

1 

25.50 

24.925 

1.639 

0.289 

2 

25.50 

28.405 

6.995 

0.326 

2 

25.50 

27.125 

21.222 

0.346 

2 

D.  BLACK  IRON  PLATES 

In  preparation  for  a  series  of  runs  with  hydrazine  and  black  iron  plates,  the  chamber  was 
heated  to  45  *C,  and  pumped  out  with  the  mechanical  pump.  This  produced  an  obvious  new  set  of 
aliphatic  C-H  bands  in  the  2700-3100  cm-^  and  1450-1470  cm-*  regions.  These  have  clearly 
resulted  from  paraffin  wax  vapors  depositing  on  the  mirror  and  window  surfaces.  They  detract 
somewhat  from  the  overall  sensitivity  of  the  IR  signal,  but  are  ratioed  out  in  any  subsequent 
spectra  and  so  pose  no  significant  problem. 

Following  the  above  procedure,  two  hydrazine  stability  runs  in  pure,  dry  helium  were 
conducted,  the  first  for  6  days  and  the  second  for  14  days.  There  was  considerable  conditioning 
noted  in  these  runs  as  seen  in  Figure  23. 
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Following  these  characterization  runs,  19  black  iron  plates  were  placed  into  the  chamber. 
Two  baseline  hydrazine  decay  runs  in  pure,  dry  helium  were  conducted.  Between  the  two  runs. 


Figure  23.  Hydrazine  Decay  in  Pure,  Dry  Helium  (No  Added  Plates) 

the  chamber  was  evacuated  overnight  with  the  turbopump.  In  spite  of  this,  there  was  a  substantial 
conditioning  effect  evident  from  the  first  to  the  second  run  as  shown  in  Figure  24.  Traces  of 
ammonia  were  evident  after  the  second  run. 

When  the  first  decay  run  (4  Jan  90)  was  modeled,  the  fits  were  about  the  same  for  all  the 
models  except  those  which  invoked  a  reaction  intermediate  (MOD385  and  MOD390);  these  gave  a 
significantly  poorer  fit.  This  is  reasonable  in  terms  of  the  expected  reactivity  of  this  system  in  the 
absence  of  oxygen.  Model  MOD360  gave  the  best  fit  by  a  slight  margin. 

The  second  decay  run  (5  Jan  90)  gave  somewhat  different  model  fit  results.  The  single-site 
model  (MOD350)  gave  a  slightly  better  fit  than  the  two-site  model  (MOD360),  which  could  be  a 
reflection  of  the  conditioning  process.  However,  the  overall  magnitude  of  the  fit  (as  measured  by 


53 


the  sum  of  squares  of  the  residuals)  was  about  a  factor  of  10  worse  than  the  fit  for  Run  1.  This  is 


Figure  24.  Hydrazine  Decay  in  Pure,  Dry  Helium  with  19  Black  Iron  Plates. 

partly  due  to  a  decrease  in  S/N  in  Run  two.  The  other  models  all  gave  similar,  though  somewhat 
poorer  fits  except  for  MOD370  and  MOD385  which  gave  very  poor  fits. 

Following  these  baseline  decay  runs,  several  runs  were  made  with  80  percent  dry  helium  and 
20  percent  oxygen.  These  runs  showed  an  overall  conditioning  effect,  even  when  the  chamber 
was  thoroughly  pumped  out  between  runs.  The  decay  times  were  much  faster  in  the  presence  of 
oxygen,  with  half  lives  of  one  hour  or  less.  This  indicates  that  the  black  iron  plates  exhibit  a 
significant  degree  of  catalytic  activity  with  respect  to  hydrazine  oxidation  in  synthetic  air.  The  runs 
conducted  under  these  conditions  are  shown  in  Hgure  25.  Ammonia  was  a  minor  product  in  these 
runs  as  well.  About  twice  as  much  was  produced  as  in  the  runs  with  no  oxygen,  but  this  still 
amounted  to  only  2-4  ppm. 
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Time  (hr) 

Figure  25.  Hydrazine  Decay  with  19  Black  Iron  Plates  in  80  Percent  Dry  Helium  and  20 
Percent  Oxygen. 

The  8  Jan  90  and  the  9(b)  Jan  90  runs  could  not  be  modeled  because  of  the  poor  quality  of  the 
data.  The  remaining  runs  were  most  closely  modeled  by  the  single-site  model  MOD350,  although 
again,  the  differences  with  the  other  models  were  small.  As  before,  MOD385  and  MOD390  were 
significantly  worse. 

Finally,  two  sets  of  runs  were  conducted  in  humid,  synthetic  air.  There  was  less  conditioning 
evident,  and  the  decay  rate  was  increased  by  about  a  factor  of  four  over  the  runs  in  dry  synthetic 
air.  These  runs  produced  the  most  ammonia,  about  25  percent  more  than  the  runs  in  dry  synthetic 
air.  The  hydrazine  decay  curves  are  shown  in  Figure  26. 

The  16(a)  Jan  90  data  were  to  sparse  to  permit  modeling.  The  other  three  runs  were  fit  best  by 
the  two-site  model  MOD370.  In  the  presence  of  high  concentrations  of  water  vapor,  this  model 
suggests  that  two  types  of  active  sites  are  participating  in  the  decay  kinetics.  The  relatively  poor 
fits  provided  by  the  models  which  produce  intermediate  species  is  supported  by  the  fact  that  there 
was  only  a  very  small  quantity  of  diimide  observed  in  these  runs. 

A  summary  of  the  model  fits  for  all  of  the  black  iron  data  is  given  in  Appendix  P. 
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1.2 


Figure  26.  Hydrazine  Decay  with  19  Black  fron  Plates  in  80  Percent  Helium  and  20 
Percent  Oxygen  with  50  Percent  Relative  Humidity. 


Because  the  mechanism  proposed  for  the  catalytic  oxidation  of  hydrazine  involved  diimide 
(HN=NH)  as  an  intermediate  (Reference  2),  an  attempt  was  made  to  see  if  any  of  this  material 
could  be  seen  in  the  decay  spectra  with  black  iron  plates  present.  In  the  presence  of  oxygen,  there 
was  indeed  a  small  amount  found  as  verified  by  peak  comparison  with  an  infrared  spectrum  taken 
by  Tuazon  and  co-workers  (Reference  9).  These  spectra  are  shown  in  Figure  27. 


J**>*U4 

TUAZCW.ET.AL.  ^ 


liOO  1300  <*00 

FRCOWENCr  tarn**) 

Figure  27.  Comparison  of  Diimide  Spectra  from  Tuazon,  eL  al.  (Reference  9)  and  This  Work. 
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E.  CORRODED  ALUMINUM  PLATES 


Following  the  observation  by  researchers  at  NASA/WSTF  that  corroded  aluminum  plates 
were  very  reactive  with  respect  to  heterogeneous  hydrazine  vapor  oxidation,  plates  of  this  type 
were  evaluated  in  the  RDVC  chamber.  At  first,  20  of  the  plates  which  had  been  synthetically 
corroded  as  described  earlier  (see  Section  E.  B.  1.)  were  placed  in  the  chamber.  However,  when 
hydrazine  vapor  was  added  in  the  usual  manner,  it  decayed  so  rapidly  that  no  useable  spectra  as  a 
function  of  time  could  be  obtained.  The  number  of  plates  was  cut  to  four,  and  the  chamber  was 
"conditioned"  with  a  large  excess  of  hydrazine  vapor,  stiU  the  reaction  was  too  rapid  to  follow. 
Finally,  three  of  the  remaining  plates  were  removed,  leaving  only  one  plate  in  the  chamber.  This 
single  plate  proved  very  reactive,  but  at  least  it  was  possible  to  follow  the  reactions  of  hydrazine 
and  oxygen  in  synthetic  air. 

With  the  single  plate  in  the  chamber,  two  runs  were  made  in  pure,  dry  helium  to  establish  the 
baseline  reactivity  of  the  system.  After  the  first  run,  the  chamber  was  pumped  out  to  10  microns 
pressure  with  the  turbopump.  There  was  still  a  significant  conditioning  effect  evident  between  the 
two  runs  as  shown  in  Figure  28. 


Figure  28.  Hydrazine  Decay  in  Pure,  Dry  Helium  with  One  Corroded  Aluminum 
Plate. 
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Model  MOD310  gave  very  good  fits  for  these  two  runs,  although  most  of  the  other  models 
gave  fits  which  were  almost  as  good.  This  provides  some  substance  to  the  assumption  that  the 
reaction  involves  two  surface  sites  both  of  which  are  susceptible  to  poisoning  by  reactions  with 
vapor-phase  species. 

These  baseline  reactivity  runs  were  followed  by  a  series  of  six  runs  with  80  percent  helium 
and  20  percent  oxygen  (dry  conditions).  The  decay  was  very  rapid  in  these  runs  with  half  lives  of 
1  hour  or  less.  There  was  the  usual  conditioning  effect  from  one  run  to  the  next  These  runs  are 
shown  in  Figure  29.  Some  diimide  formation  was  also  evident  in  these  runs.  It  built  up  to  a 
maximum  at  about  1/2  an  hour  then  decayed  slowly  down  from  there.  This  is  typical  behavior  for 
an  intermediate  in  an  oxidation  reaction  of  this  type. 


0  1  2  3  4  5 

Time  (hr) 


Figure  29.  Hydrazine  Decay  in  80  Percent  Helium  and  20  Percent  Oxygen  with 
C)ne  Corroded  Aluminum  Plate. 


Because  of  the  obvious  formation  of  the  diimide  intermediate,  the  feeling  was  that  models 
which  explicitly  incorporated  an  intermediate  (i.e.,  MOD385  and  MOD390)  would  provide  the  best 
fits  to  these  data.  However,  this  proved  not  to  be  the  case.  In  fact,  these  models  provided  the 
worst  fits,  by  far.  Of  the  other  models,  MOD375  provided  the  best  fit  This  is  a  two-site  model 
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with  no  explicit  intermediate  formation.  This  leads  to  the  conclusion  that  neither  MOD385  nor 
MOD390  have  sufficient  information  to  account  for  the  intermediate  properly,  i.e.,  they  need  to  be 
expanded,  or  intermediate  concentration  data  need  to  be  directly  incorporated  into  their  fitting  runs. 

Finally,  two  experimental  runs  were  made  under  humid  conditions  with  20  percent  oxygen 
present  Under  these  conditions,  the  reactivity  was  greatest.  About  twice  as  much  diimide 
intermediate  was  produced  as  was  the  case  under  dry  conditions.  Also,  about  twice  as  much 
ammonia  was  produced,  although  both  of  these  compounds  were  produced  in  amounts  less  than  5 
ppm.  The  hydrazine  half-life  was  less  than  1/4  hour  in  these  runs.  They  are  plotted  in  Figure  30. 


Time  (hr) 

figure  30.  Hydrazine  Decay  in  80  Percent  Helium  and  20  Percent  Oxygen 
(Under  Humid  Conditions)  with  One  Corroded  Aluminum  Plate. 

A  similar  situation  occurred  in  this  case  [i.e.,  decay  in  80  percent  humid  helium  and  20  percent 
oxygen]  when  the  models  were  applied.  The  two  models  which  specifically  include  an 
intermediate  gave  very  poor  fits.  The  best  fit  for  these  reaction  conditions  was  provided  by 
MOD31S.  This  two  site  model  handles  the  data  well  in  spile  of  the  lack  of  an  explicit  intermediate 
being  formed.  This  again  leads  to  the  conclusion  that  the  models  which  do  have  an  intermediate 
must  need  some  additional  measurement  informaticm  or  mechanistic  adjustments. 
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The  spectra  of  hydrazine  decay  under  the  conditions  of  80  percent  humid  helium  and  20 
percent  oxygen  (Figure  31)  show  the  formation  of  diimide  and  ammonia  very  clearly.  In  these 
time-sequence  spectra,  the  build  up  and  subsequent  decay  of  diimide  is  evident  as  is  the  formation 
of  ammonia. 


Figure  31.  Hydrazine  Decay  in  80  Percent  Helium  and  20  Percent  Oxygen  with 

dne  Corroded  Aluminum  Plate.  Spectra  were  acquired  at  the  Beginning, 
Middle,  and  End  of  the  Run. 


The  concentration  of  diimide  was  monitored  in  many  of  these  runs  because  of  the  near 
coincidence  of  one  of  its  principal  bands  with  the  methane  analytical  band  at  1306  cm*^  (i.e.,  the 
software  used  to  automatically  acquire  a  band  at  the  methane  location  produced,  in  the  absence  of 
methane,  values  which  were  absorbances  for  diimide).  The  diimide  concentration  as  a  function  of 
time  in  the  humid  helium  plus  oxygen  run  is  shown  in  Figure  32  as  an  example. 

Finally,  a  comparison  was  made  between  the  observed  spectral  bands  in  the  hydrazine  decay 
plots  and  bands  from  diimide  and  hydrogen  peroxide.  These  are  shown  in  Figure  33.  It  is  clear 
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that  in  these  spectra  at  least,  no  hydrogen  peroxide  is  apparent  as  a  reaction  intermediate  in  these 
hydrazine  decay  reactions. 


Figure  32.  Diimide  Formation  in  the  Decay  of  Hydrazine  in  80  Percent 
Humid  Helium  and  20  Percent  Oxygen  with  One  Corroded 
Aluminum  Plate. 


Figure  33.  Plots  of  Hydrazine,  Diimide,  and  Hydrogen  Peroxide  Showing 
their  Relative  Band  Positions  for  Spectral  Identification. 

A  summary  of  all  the  model  fits  for  the  experiments  with  corroded  aluminum  plates  is  given  in 
i^pendixQ. 
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F.  ADDITIONAL  BASELINE  REACTIVITY  RUNS  (NO  ADDED  PLATES) 


At  the  conclusion  of  the  experiments  with  the  corroded  aluminum  plates,  the  chamber  was 
opened  and  the  plates  were  removed.  The  chamber  was  cleaned  by  vacuuming  the  interior  bottom 
section  and  wiping  as  much  of  the  interior  as  possible  with  a  50-50  mixture  of  acetone  and 
methanol.  Then  the  chamber  was  closed  up  and  pumped  down  overnight 

The  first  run  in  this  series  was  a  hydrazine  decay  run  in  pure,  dry  helium.  100  ppm  HZ  were 
flushed  into  the  chamber  and  the  decay  was  followed  for  an  extended  period  of  time.  The  results 
were  typical  of  earlier  runs,  indicating  no  drastic  change  in  the  chamber's  basic  characteristics  had 
occurred.  The  decay  of  hydrazine  in  this  run  is  shown  is  Figure  34. 

Models  which  did  not  incorporate  intermediates  gave  good  fits.  Models  MOD361 
and  MOD360  gave  the  best  fits;  but  both  of  these  have  insufficient  site  2  characterization. 


Figure  34.  Hydrazine  Decay  in  Pure,  Dry  Helium  with  No  Added  Plates. 
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Of  the  remaining  models,  only  MOD310  and  MOD370  gave  reasonable  values.  MOD310 
incorporates  two  surface  sites,  both  of  which  can  become  contaminated.  It  produces  ammonia 
from  site  1  and  product  from  site  2.  This  gave  a  somewhat  better  fit  than  model  MOD370  which 
allows  only  one  site  to  become  contaminated  and  produces  ammonia  from  site  2  and  product  from 
site  1. 

Following  this  run,  an  experiment  was  conducted  where  100  ppm  HZ  were  flushed  into  the 
chamber  in  humid  helium.  In  this  case,  the  expected  increase  in  decay  rate  was  observed,  as  in 
earlier  trials  under  these  conditions.  The  decay  is  shown  in  Figure  35. 

For  the  humid  helium  run,  the  best  fit  was  given  by  model  MOD361.  This  model 


Figure  35.  Hydrazine  Decay  in  Humid  Helium  (No  Added  Plates). 

is  of  limited  utility  because  it  does  not  account  for  the  fate  of  the  second  type  of  surface  sites.  It 
may,  however,  serve  as  a  guide  for  improved  attempts  to  model  this  particular  system. 
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Next  a  series  of  four  runs  was  used  to  test  the  behavior  of  hydrazine  in  the  presence  of 
oxygen,  under  dry  conditions.  The  decay  patterns  were  interesting.  They  were  considerably  faster 
than  the  run  with  no  oxygen  present  (Fig.  34  above),  but  not  quite  as  fast  as  the  pure,  humid 
helium  run.  Also,  there  was  no  evidence  for  conditioning  in  these  runs.  They  are  shown  in  Figure 
36  below. 

Model  MOD310  provided  the  most  consistently  good  fits  to  this  series  of  runs.  The  other 
models  all  had  difficulty  with  the  25  May  90  run,  but  the  reason  for  this  is  not  clear. 


Figure  36.  Hydrazine  Decay  in  Dry  Helium  with  20  Percent  Oxygen 
(with  No  Added  Plates). 


The  general  approach  followed  by  MOD310  shows  a  good  deal  of  flexibility  since  it  can  handle 
both  the  dry  and  humid  conditions  under  which  these  runs  were  conducted. 

Following  the  humid  helium  runs,  a  final  set  of  characterization  runs  was  made  with  humid 
helium  and  20  percent  oxygen.  In  this  case,  three  runs  were  made  and  a  definite  conditioning 
effect  was  observed.  However,  the  decay  rate  was  no  more  rapid  than  in  the  humid  helium  run 
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with  no  added  oxygen.  These  conditions  also  produced  the  highest  levels  of  ammonia  and 
diimide.  The  results  of  these  three  runs  are  shown  in  Figure  37. 

For  this  final  series  of  runs,  the  only  models  which  could  successfully  handle  all  three  runs 
(the  1  Jun  90  run  diverged  for  all  other  models)  were  MOD380  and  MOD385.  These  models 
include  intermediates  specifically  and  provide  the  first  case  where  they  gave  the  best  fits.  This  has 
some  significance  since  diimide  production  in  these  runs  was  among  the  highest  of  any  experiment 
in  the  entire  study. 

Appendix  N  summarizes  the  model  fits  for  all  of  the  experiments  described  in  this  section. 


Figure  37.  Hydrazine  Decay  in  Humid  Helium  with  20  Percent  Oxygen  (with 
No  Added  Plates). 
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G.  PAINTED  ALUMINUM  PLATES 


The  final  set  of  experiments  on  added  surfaces  was  conducted  with  20  aluminum  plates  which 
were  painted  in  the  same  manner  as  an  F- 16  aircraft  The  plates  were  placed  in  the  holder  inside 
the  chamber  after  they  had  been  rinsed  carefully  with  a  50-50  mixture  of  acetone  and  methanol. 
The  chamber  was  pumped  down  to  5  X  10-<5  Torr  and  left  overnight 

The  first  set  of  three  runs  was  carried  out  by  flushing  50  ppm  HZ  vapor  into  the  chamber  with 
dry  helium.  The  decay  was  fairly  rapid  with  a  half  life  of  about  2-3  hours.  Two  subsequent 
sequential  runs  showed  the  familiar  conditioning  effect  with  half  lives  increasing  to  about  5  and  7 
hours  respectively.  These  decay  curves  are  shown  in  Rgure  38. 


Rgure  38.  Hydrazine  Decay  in  Dry  Helium  with  20  Added  Painted  Aluminum  Plates. 

A  small  amount  of  ammonia  was  formed  in  the  initial  run  in  this  sequence  and  a  trace  was 
produced  in  the  second  run.  The  third  run  produced  none  at  all.  No  diimide  was  formed  during 
any  of  the  three  runs. 
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The  third  run  could  not  be  modeled  with  the  two-parameter  model  because  of  the  negative 
(i.e.,  zero)  ammonia  values.  For  the  other  two  runs,  all  of  the  models,  except  those  which  include 
intermediates,  gave  very  good  fits.  Model  MOD370  gave  a  slightly  better  fit  than  the  others.  This 
two-site  model  predicts  ammonia  formation,  but  the  values  of  the  rate  constant  suggest  it  would  be 
low.  This  is  what  is  observed  experimentally. 

Following  this  first  set  of  runs,  a  second  set  was  made  where  20  percent  oxygen  was  added  to 
the  helium,  again  under  dry  conditions.  There  was  a  somewhat  unusual  pattern  in  the  three  runs  in 
this  set  of  experiments.  They  actually  decayed  somewhat  faster  with  each  run,  i.e.,  a  kind  of 
'reverse  conditioning'  effect.  This  is  shown  in  Figure  39.  The  reason  for  this  behavior  is  not 
known,  but  there  may  have  been  some  unusual  experimental  conditions  which  were  not  noted  or 
planned. 

Under  these  experimental  conditions,  model  MOD310  gave  a  somewhat  better  fit  than  other 
models.  Again,  models  with  intermediates  did  poorly.  The  model  results  had  no  clearly 
discemable  trends  which  might  give  indications  for  the  'reverse  conditioning'  which  was 
observed. 

The  next  set  of  experiments  were  conducted  to  test  the  effects  of  humidity  on  the  decay 
processes.  Liquid  water  was  flushed  into  the  chamber  with  helium  to  give  a  humidity  of  50 
percent.  Then  50  ppm  hydrazine  vapor  was  swept  into  the  chamber  with  some  additional  helium. 
The  resulting  decay  pattern  followed  the  more  familiar  pattern  of  earlier  runs.  There  was  a  definite 
conditioning  effect  as  shown  in  Figure  40.  However,  there  was  very  little  difference  between 
these  runs  and  the  runs  in  dry  helium.  Somewhat  more  ammonia  was  produced  under  these  humid 
conditions,  but  no  diimide  was  observed. 

The  nonintermediate  models  all  generally  fit  the  data  quite  well.  Model  MOD370  gave  slightly 
better  overall  fits.  This  supports  the  experimental  observation  that  these  runs  behaved  almost  the 
same  as  the  earlier  runs  without  water  added. 

The  final  set  of  runs  was  done  under  humid  conditions  with  20  percent  oxygen  added  to  the 
helium.  This  resulted  in  the  most  rapid  hydrazine  decay  with  half  lives  of  two  hours  or  less.  It 
also  gave  the  highest  ammonia  production  of  these  runs  with  painted  aluminum  plates.  Finally, 
there  was  some  diimide  produced  as  well.  The  hydrazine  decay  is  shown  in  Figure  41. 
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Figure  39.  Hydrazine  Decay  in  Dry  Helium  with  20  Percent  Oxygen  (with  20  Added  Painted 
Aluminum  Plates). 


Hguie  40.  Hydrazine  Decay  in  Humid  Helium  (with  20  Added  Painted  Aluminum  Plates). 
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Figure  41.  Hydrazine  Decay  in  Humid  Helium  with  20  Percent  Oxygen  (with  20  Added 
Aluminum  Plates). 

Modeling  of  these  runs  showed  a  similar  pattern  to  earlier  runs,  i.e.,  the  nonintermediate 
models  gave  good  fits,  but  MOD310  was  the  best  This  is  the  same  model  which  gave  the  best  fit 
for  the  run  with  20  percent  oxygen  and  no  humidity.  This  consistency  supports  the  idea  that  water 
interactions  are  small  with  the  painted  aluminum  plates. 

A  summary  of  the  model  fits  for  all  of  the  experiments  with  painted  aluminum  plates  is  given 
in  .^pendix  R. 
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SECTION  V 


CONCLUSIONS  AND  RECOMMENDATIONS 

A.  NO  ADDED  PLATES 

Hydrazine  decay  in  the  spherical  chamber  in  the  absence  of  any  added  test  surfaces  is  still 
controlled  entirely  by  the  chamber  walls  (and  the  mirrors,  viewports,  and  other  non-Teflon®- 
coated  surfaces  present).  The  reactivity  of  hydrazine  can  be  lowered  substantially  by  the  use  of 
inert  surfaces,  but  interactions  stiU  occur.  The  use  of  a  solid  chamber  did  remove  losses  due  to 
permeation  through  the  walls  which  was  an  important  loss  mechanism  in  studies  conducted  in 
Teflon®-film  chambers.  Half  lives  in  the  spherical  chamber,  in  the  absence  of  oxygen,  were  about 
four  times  longer  than  those  in  the  Teflon®-film  chambers. 

When  oxygen  is  added  to  the  system,  the  decay  rate  increases  by  a  factor  of  ten.  This 
indicates  a  strong  interaction  between  the  hydrazine  adsorbed  on  the  surfaces  inside  the  chamber 
and  the  oxygen. 

In  the  presence  of  large  water  concentrations  (i.e.,  runs  conducted  under  humid  conditions), 
the  decay  of  hydrazine  is  not  greatly  affected  unless  oxygen  is  also  present  However,  the 
production  of  ammonia  is  increased  over  that  observed  under  dry  conditions.  The  most  rapid 
decay  of  hydrazine  occurs  under  humid  conditions  with  oxygen  present  The  water  plays  an 
important  role  in  facilitating  surface-catalyzed  reactions.  The  reactive  intermediate  diimide  is  also 
produced  under  these  conditions,  however,  there  is  no  evidence  for  any  hydrogen  peroxide 
formation. 

The  models  presented  in  this  report  generally  give  very  good  fits  to  the  observed  experimental 
data.  These  models  all  include  two  types  of  surface  sites,  indeed,  earlier  attempts  at  model  fits 
with  a  single  type  of  site  were  not  nearly  as  successful.  However,  the  models  cannot  identify  the 
sites  as  being  on  the  Teflon®  surface  or  on  some  other  chamber  surface.  The  models  also  provide 
a  functional  description  of  ammonia  formation,  although,  again,  the  specific  formation  site(s) 
cannot  be  identified  with  certainty. 

The  formation  of  ammonia  in  these  runs  was  somewhat  unexpected.  The  chamber  is  almost 
entirely  Teflon®  coated  and  the  remaining  surfaces  are  mostly  Pyrex®  glass.  The  ammonia 
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formation  mechanism  proposed  by  Martin,  et  al.  (Reference  2)  invokes  the  use  of  a  metal  surface 
and  the  presence  of  water.  The  amount  of  ammonia  produced  depended  on  the  water  present,  but 
the  very  small  surface  area  of  exposed  metal  leads  to  the  conclusion  that  the  same  type  of  reaction 
may  be  possible  on  glass  or  even  Teflon®  surfaces  (or  on  the  metal  beneath  the  Teflon®-coated 
surfaces).  The  same  argument  holds  for  diimide  production.  Further  experiments  will  be 
necessary  to  address  these  mechanistic  questions. 


B.  TEFLON-COATED  ALUMINUM  PLATES 

Experiments  with  these  plates  were  designed  to  determine  the  effects  of  adding  additional 
Teflon®-coated  surface  area.  The  addition  of  the  plates  nearly  doubled  the  interior  surface  area  of 
the  chamber,  thus  doubling  the  S/W  ratio.  The  additional  surface  area  decreased  the  half  life  of  the 
pure  helium  runs  by  about  a  factor  of  four  and  the  helium  plus  oxygen  runs  by  a  factor  of  two. 
There  was  some  evidence  of  Teflon®  film  surface  area  dependence  in  one  earlier  study  (Reference 
1),  but  this  was  not  observed  when  a  much  larger  Teflon®-film  chamber  was  used  in  a  subsequent 
study  (Reference  2). 

During  the  course  of  the  experiments  with  the  Teflon®-coated  aluminum  plates,  an  additional 
group  of  experiments  was  conducted  with  no  plates  in  the  chamber.  These  runs  showed  that  the 
baseline  chamber  reactivity  in  the  absence  of  oxygen  was  about  the  same  as  it  had  been  when  the 
first  group  of  runs  with  no  plates  present  had  been  made.  However,  the  decay  rate  in  the  presence 
of  oxygen  had  decreased  by  a  factor  of  two  indicating  some  type  of  long-term  conditioning  effect 

These  observations  show  that  it  is  not  yet  entirely  clear  how  the  available  Teflon®  surface  area 
is  related  to  the  observed  hydrazine  decay  rate.  The  Amctional  relationship  is  apparently  fairly 
complicated,  although  it  can  be  adequately  modeled  by  a  two-site  ^proach. 


C.  WATER  CALIBRATION  SPECTRA 

The  decision  to  conduct  specific  experiments  m  determine  one  or  more  accurate  analytical 
absorption  coefficients  for  water  was  made  in  the  hope  of  using  this  information  as  input  to  the 
mathematical  models  which  were  used  to  assist  in  data  interpretation.  It  quickly  became  evident, 
however,  that  the  tasdt  was  not  going  to  be  an  easy  one. 
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The  first  problem  was  that  vapor  samples  gave  very  poor  reproducibility.  They  were  also 
difficult  to  prepare  accurately  because  of  the  constant  adsorption  of  vapor  samples  on  the  vacuum 
lines  and  sample  bulb.  The  use  of  liquid  samples  which  were  injected  and  then  vaporized 
alleviated  this  problem.  However,  it  was  soon  noted  that  the  absorbance  of  the  liquid  samples  was 
a  function  of  time.  So  the  data  had  to  be  gather  as  a  function  of  time  and  a  calibration  plane  became 
necessary  instead  of  the  usual  calibration  line.  Because  of  these  experimental  difficulties,  the  water 
calibration  runs  took  much  longer  than  expected. 

The  eventual  water  concentration  data  turned  out  to  be  less  useful  than  anticipated.  At  least 
with  the  current  models,  it  is  difficult  to  include  water  into  a  decay  mechanism  in  a  way  which 
produces  meaningful  results.  Additional  modeling  effort  will  be  necessary  to  realize  the  anticipated 
benefit  of  the  water  concenu^tion  data. 


D.  BLACK  IRON  PLATES 

As  noted  by  Martin  and  co- workers  (Reference  2),  iron  and  its  oxides  are  good  catalysts  for 
hydrazine  oxidation,  thus  it  was  expected  that  these  plates  would  be  quite  reactive  when  exposed  to 
hydrazine.  This  was  bom  out  by  subsequent  observations.  In  the  absence  of  oxygen,  the  decay 
rate  increased  by  a  factor  of  about  20  over  the  empty  chamber.  In  the  presence  of  oxygen,  it  was 
increased  by  an  additional  factor  of  abut  ten.  The  addition  of  humidity  further  icreased  the  decay 
rates  by  a  factor  of  two. 

There  was  some  ammonia  formed  in  these  mns,  but  only  about  two  times  the  amount 
observed  in  the  absence  of  the  plates.  Also,  some  diimide  was  observed,  but  only  in  small 
quantities.  These  observations  lead  to  the  conclusion  that  the  dominant  interaction  mechanism  in 
the  presence  of  black  iron  plates  is  concerted  oxidation  of  the  hydrazine  to  water  and  nitrogen  with 
the  concommita; :  reduction  of  iron  oxides  present  on  the  surface  of  the  plates. 


E.  CORRODED  ALUMINUM  PLATES 

The  corroded  aluminum  plates  were  by  far  the  most  reactive  plates  studied  during  these 
experiments.  The  primary  reason  for  this,  as  noted  by  Martin  and  co-workers  (Reference  2),  is  the 
large  surface  area  of  the  bayerite  which  forms  on  the  surface  during  the  corrosion  process.  Even 
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taking  this  into  account,  the  corroded  aluminum  was  the  most  reactive  surface  in  terms  of  the 
amount  of  ammonia  and  diimide  which  were  formed  during  hydrazine  decay  experiments.  Indeed, 
a  series  of  experiments  were  conducted  with  10  of  these  plates  in  the  chamber  to  see  if  a  relatively 
large  amount  of  diimide  could  be  produced  for  additional  study.  This  proved  mostly  unsuccessful 
for  reasons  which  are  not  entirely  clear. 

A  comparison  of  the  same  model  (e.g.,  MOD370)  for  black  iron  runs  and  corroded  aluminum 
runs  suggests  that  one  of  the  surface  site  concentrations  is  higher  for  the  corroded  aluminum.  This 
result  appears  to  indicate  that  the  models  do  give  an  indication  of  the  validity  of  a  given  reaction 
mechanism. 

The  high  reactivity  of  bayerite  towards  hydrazine  oxidation  suggests  its  possible  use  as  a 
catalyst  in  some  type  of  system  used  to  scrub  hydrazine  vapors.  This  would,  of  course,  require 
substantial  additional  testing  to  validate. 

One  other  observation  of  note  with  the  corroded  aluminum  plates  is  the  lack  of  any  observed 
hydrogen  peroxide  formation  during  hydrazine  decay  runs.  In  similar  experiments  in  a  Teflon®- 
film  chamber,  Martin  and  co-woikers  (Reference  2)  reported  that  a  mixture  of  diimide  and 
hydrogen  peroxide  formed  during  the  reaction  of  hydrazine  vapor  with  air.  In  this  work,  only 
diimide  could  be  identified.  This  finding  suggests  that  the  reaction  mechanism  proposed  by  these 
researchers  (Reference  2)  would  have  to  be  modified  somewhat  to  preclude  the  formation  of 
hydrogen  peroxide. 


F.  PAINTED  ALUMINUM  PLATES 

The  final  set  of  experimental  runs  were  designed  to  simulate  spills  which  contact  the  surface  of 
F-16  aircraft  The  painted  aluminum  plates  were  quite  reactive  with  respect  to  hydrazine  decay.  In 
the  absence  of  oxygen,  the  half  life  for  hydrazine  was  about  the  same  as  the  black  iron  plates. 

When  oxygen  was  added,  it  decreased  by  about  a  factor  of  two.  Under  humid  conditions  and  in 
the  absence  of  oxygen,  there  was  an  additional  decrease  in  half  life  by  a  factor  of  two;  while  the 
addition  of  humidity  to  the  20  percent  oxygen  runs  showed  little  effect  over  the  runs  with  no 
humidity  present 

Ammonia  and  diimide  formation  were,  somewhat  surprisingly,  lower  than  in  the  chamber 
runs  with  no  plates  present 
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G.  RECOMMENDATIONS  FOR  ADDITIONAL  RESEARCH 


While  progress  has  been  made  in  understanding  the  factors  which  control  the  surface- 
catalyzed  reactions  of  hydrazine  fuel  vapors,  there  are  several  areas  which  need  additional  research. 
These  include,  but  are  not  necessarily  limited  to  the  following: 

•  separate  characterizations  of  the  surfaces  used  in  these  studies  with  specific  surface 
composition/area  analysis  techniques. 

•  additional  experiments  with  Pyrex®  glass  plates  to  determine  the  role  of  mirror  and 
viewport  surfaces  in  hydrazine  decay  reactions. 

•  experiments  with  substituted  hydrazines  to  compare  their  reactivities  and  product 
distributions. 

•  experiments  at  reduced  pressure  to  define  the  role  of  diffusion  in  the  decay  processes 
observed. 

•  more  extensive  'interactive'  modeling  efforts  to  derive  the  maximum  amount  of 
information  fi-om  the  models  developed. 


74 


REFERENCES 


1.  D.  A.  Stone  and  F.L.  Wiseman,  Hvdrarinp.  Loss  Processes  in  a  Teflon  Film  Reaction 
Chamber  Laboratory  Results  and  Kinetic  Models.  ESL-TR-87-68,  Engineering  and  Services 
Laboratory,  Air  Force  Engineering  and  Services  Center,  Tyndall  Air  Force  Base,  FL ,  March 
1988. 

2.  N.B.  Martin,  D.D.  Davis,  J.E.  Kilduff,  and  W.C.  Mahone,  Environmental  Fate  of 
Hydrazines  ESL-TR-89-32,  Engineering  and  Services  Laboratory,  Air  Force  Engineering 
and  Services  Center,  Tyndall  Air  Force  Base,  FL ,  December  1989. 

3.  D.A.  Stone,  F.L.  Wiseman,  J.E.  Kilduff,  S.L.  Koontz,  and  D.D.  Davis,  "The  Disappearance 
of  Fuel  Hydrazine  Vapors  in  Fluorocarbon-Film  Environmental  Chambers.  Experimental 
Observations  and  Kinetic  Modeling,"  Environmental  Science  &  Technology.  Vol.  23,  pp. 
328-333,  1989. 

4.  D.  A.  Stone,  A  ControUed-Environment  Chamber  for  Atmospheric  Chemistry  Studies  Using 
FT-IR  Spectroscopy.  ESL-TR-89-44,  Engineering  and  Services  Laboratory,  Air  Force 
Engineering  and  Services  Center,  Tyndall  Air  Force  Base,  FL ,  June  1990. 

5.  D.  A.  Stone,  "A  ControUed-Environment  Chamber  for  Atmospheric  Chemistry  Studies  Using 
FT-IR  Spectroscopy",  AppUed  Spectroscopy.  Vol.  44,  pp.  945-950, 1990. 

6.  J.  U.  White,  "Long  Optical  Paths  of  Large  Aperttu^,"  Optical  Society  of  America.  Vol.  32, 
pp.  285-288,  1942. 

7.  W.  B.  Olson,  "Minimization  of  Volume  and  Astigmatism  in  White  CeUs  for  Use  with  Circular 
Sources  and  Apertures,"  AppUed  Optics.  Vol.  23,  pp.  1580-1585, 1984. 

8.  K.  Wefers  and  C.  Misra,  Oxides  and  Hydroxides  of  Aluminum.  Alcoa  Technical  Paper  No. 

19  (Revised),  Alcoa  Laboratories,  1987. 

9.  E.C.  Tuazon,  W.P.L.  Carter,  R.V.Brown,  R.  Atkinson,  A.M.  Winer,  and  J.N.  Pitts,  Jr., 
Atmospheric  Reaction  Mechanisms  of  Amine  Fuels.  ESL-TR-82-17,  Engineering  and 
Services  Laboratory,  Air  FtMce  Engineering  and  Services  Center,  TyndaU  Air  Force  Base,  FL, 
March  1982. 

10.  P.L.  Hanst,  W.E.  Wilson,  R.K.  Patterson,  B.W.  Gay,  Jr.,  A  Spectroscopic  Study  of 
California  Smog.  EPA  Report  No.  650/4-75-006,  February  1975. 

1 1.  W.P.  Mounrield,  Jr.  and  D.A.  Stone, "Computer  Modeling  as  an  Aid  to  the  Analysis  of 
Kinetic  Data,"  AppUed  Spectroscopy.  44, 679-686  (1990). 

12.  D.W.  Marquardt,  J.  Soc.  Industr.  AppI.  Math..  Vol.  H,  431  (1963). 

13.  JJ.  Dongarra,  C.B.  Moler,  J.R.  Bunch,  and  G.W.  Stewart,  LINPACK  Users'  Guide. 

SIAM,  PhUadelphia,  1979. 


75 


APPENDIX  A 


FLOW  DIAGRAM  FOR  DATA  ACQUISITION  AND  ANALYSIS 


FT-IR  DATA  SYSTEM 


BLC003. 
FTI 
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“TZ 
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APPENDIX  B 


SOFTWARE  LISTING  FOR  THE  PROGRAM  USED  FOR  OVERALL 
CONTROL  OF  FT-IR  DATA  ACQUISITION  AND  STORAGE 


This  program  is  called  IR4.  It  was  written  in  the  Nicolet  MACRO  language  by  using  the 
text  editor  c^led  TED.  It  was  then  compiled  into  a  form  compatible  with  the  FT-IR  software  by 
using  a  Nicolet  program  called  MACCRT.  The  use  of  the  text  editor  allows  comments  to  be 
included  in  a  MACRO  program  for  documentation  and  user  assistance. 

The  main  MACRO  program  (IR4)  calls  other  SUB-MACRO  programs.  There  were  written 
and  compiled  as  subsections  of  IR4.  Each  program  ends  with  the  statement  END.  Each  new 
subsection  begins  with "!"  followed  by  the  program  name. 


!IR4 

\  ACQUIRES,  BASELINE  CORRECTS,  AND  PRINTS  OR 

\  SENDS  SPECTRAL  DATA  TO  A  PRINTER  OR  OPEN 

\  COMPUTER  FILE.  (USES  BLC003.FTN  FOR 

\  BASELINE  CORRECTION  AND  TIME3.FTN  FOR 

\  CONTROLLING  THE  SAMPLING  INTERVAL) 

\ 

BFN 

DFN 

NSD 

OMD 

ENTER  LOTUS-FORMAT  DATA  (E.G,,  1  JUN  89  =  32660) 

RTP 

OMD 

ENTER  THE  SPECIES  TO  MEASURE,  YES=1,  NO=0 
OMD 

SPECIES  FLAGS  ARE:  HZ=WTY,  MMH=SMN,  UDMH=SIZ,  CH4=ITR,  H20=MNT 
OMD 

NH3=RTO 

WTY 

SMN 

SIZ 

ITR 

MNT 

RTO 

OMD 

ENTER  THE  DELAY  TIME  (IN  MIN)  BETWEEN  SPECTRA 

VI 3 

OMD 

PRESS  “RETURN"  TO  BEGIN 

PAU 

VI0=0 

TS2 

END 

!TS2  \MACR0  to  perform  THE  DATA  ACQUISITION 

\  AND  PROCESSING 
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\ 

FOR  AAA=1  TIL  12 0\  LOOP  TO  ACQUIRE  AND  PROCESS  120  FILES 
PRN  DFN 

AQ6\  MACRO  TO  ACQUIRE  AND  PRINT  DATA 

DFN=DFN+1 

DCL=2 04445  \SET  COLOR  PARAMETERS  FOR  DELAY  PERIOD 

DCX  \ EXECUTE  COLOR  CHANGE 

GFN 

TIME3 . FTN  FORTRAN  PROGRAM  TO  EXECUTE  THE 

\  DESIRED  DELAY  BETWEEN  SETS  OF  SCANS 

FRN 

DCL=210414  NSEC  COLOR  PARAMETERS  FOR  SCAN  PERIOD 

DCX  \ EXECUTE  COLOR  CHANGE 

NXT  AAA 
END 

!AQ6  NMACRO  TO  ACQUIRE,  COMPUTE,  AND  PRINT  OUT  A 

\  BASELINE-CORRECTED  ABSORBANCE  VALUE  FOR  ANY  OF  THE 

\  SPECIES  CHOSEN  FOR  MONITORING.  MODIFICATION  OF  AQ4 

\  TO  INCLUDE  FORTRAN  PROGRAM  OTEMP.FTN  AND  RH.FTN 

\ 

TEM=4\  SET  TLM  TO  TOGGLE  PRINTER  ON 

NPRN  TURN  ON  PRINTER 

SCD 

GFN 

OTEMP . FTN 

FRN 

GFN 

RH.FTN 

FRN 

OFN=DFN 

MOS 

RAS 

ABS 

XSP=4000 

XEP=700 

YSP=-.25 

YEP=1.25 

DSS 

XEP=0 

DFN=SFN 

GFN 

BLC003 .FTN 
FRN 

TEM?:4\SET  TEM  TO  TOGGLE  PRINTER  OFF 

NPRXTURN  PRINTER  OFF 

DFN=OFN 

END 

I  I 
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APPENDIX  C 


SOFTWARE  LISTINGS  FOR  FORTRAN  PROGRAM  USED  TO 
CONTROL  DATA  ACQUISITION  TIMING  FROM  1280  DATA  SYSTEM  CLOCK 


This  program  is  called  TIMES.  ASC.  It  was  written  with  the  text  editor  TED  and  compiled 
using  Nicolet  FORTRAN  77  (V8.06;  L 1-067-030486),  The  compiled  version  of  the  program  has 
the  .FTN  extension.  The  program  reads  the  system  clock  and  counts  elapsed  time  until  an  interval 
equal  to  the  user  input  value  for  the  delay  between  sets  of  scans  is  reached. 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c  c 

C  TIME3.ASC  PROGRAM  TO  RETRIEVE  TIME  (IN  SEC  FROM  C 
C  MIDNIGHT)  FROM  LOCATION  071  OF  PAGE  ZERO  C 
C  MEMORY  AND  USE  IT  TO  CONTROL  THE  C 
C  INTERVAL  BETWEEN  SETS  OF  FT-IR  SCANS.  C 
C  C 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C234567 


INTVL= IRVAL (13765,0) 

ICOUNT=60*INTVL 

IFLAG=0 

IFLAG2=0 

ISUM=0 

ITEMP=0 

C  PRINT* , ■ ICOUNT=  ' , ICOUNT 

C  PRINT* , ' IFLAG=  ‘ , IFLAG 

C  PRINT* , ’ IFLAG2=  ' , IFLAG2 

C  PRINT*,  '  • 


30  CONTINUE 
C 

C  READ  THE  TIME  VALUE  (IN  SEC  SINCE  MIDNIGHT)  FROM  PAGE  0 
C  MEMORY 
C 

A  .ZERADD  IS3  71 
A  MEMA  IS3 

C  PRINT*, ■ IS3=' , IS3 

IF  (IS3  .EQ.  ITEMP)  GOTO  30 
IF  (IS3  .EQ.  0  .AND.  IFLAG2  .EQ.  0)  GOTO  50 
IF  (IFLAG  .EQ.  0)  ISUM=IS3+ICOUNT 
C  PRINT*,'  ISUM=',ISUM 

IF  ((ISUM-IS3)  .LE.  0)  GOTO  100 
IFLAG=1 

C  PRINT*, '133=  ',133 


79 


ITEMP=IS3 

C  PRINT* , ' ITEMP=  ■ , ITEMP 

GOTO  30 
50  IFLAG2=1 

ISUM=ISUM-86400 

C  PRINT*, •IS3=0' , •ISUM=' ,  ISUM 

GOTO  30 

100  IFLAG2=0 
CALL  EXIT 

END 


BATCH  FILE  USED  TO  COMPILE  THE  ABOVE  PROGRAM. 
NAME:  TIME3.BAT 


LISTING 

RUN  FORTRAN 
TIME3 .ASC:L 
RUN  RELOAD 
:B=1000-53777 
TIME3 . REL : L 

IRVAL . REL  [ ROOT , HLIB ] : L 
FORRUN.LIB  [ROOT, HLIB] :R 
NIC APL .LIB  [ ROOT , HLIB ] : R 
DPSYS . LIB  [ ROOT , HLIB] : R 
FIOS.LIB  [ROOT, HLIB] :R 
NICSYS .LIB  [ ROOT , HLIB ] ; R 
/-TT:U 
/TIME3  .FTN.'S 
DEL  TIME3.REL 
DEL  TIME3.TMP 
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APPENDIX  D 


SOFTWARE  LISTING  FOR  FORTRAN  PROGRAM  USED  TO 
READ  AND  REPORT  THE  CHAMBER  TEMPERATURE 


This  program  is  called  OTEMP,ASC.  It  was  written  with  the  text  editor  TED  and  compiled 
using  Nicolet  FORTRAN  77  (V8.06;  LI -067-030486).  The  compiled  version  of  the  program  has 
the  .FTN  extension.  The  program  requests  data  from  an  Omega  Model  680  temperature  sensing 
module.  The  temperature  data  are  read  as  a  series  of  ASCII  numbers  through  the  Nicolet  1280 
computer  RS-232  port  G  and  stored  in  the  FT-IR  flle  status  block  in  the  area  normally  used  for  a 
spectrum  title. 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c  c 

C  PROGRAM  OTEMP.ASC  C 
C  C 
C  THIS  IS  A  PROGRAM  TO  READ  ASCII  TEMPERATURE  DATA  C 
C  FROM  AN  OMEGA  MODEL  680  THERMOCOUPLE  THERMOMETER  C 
C  INTO  THE  FT-IR  DATA  SYSTEM  AND  STORE  THE  RESULT  IN  C 
C  EACH  SCRATCH  FILE  STATUS  BLOCK  IN  LOCATIONS  68-71.  C 
C  C 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  DEFINE  VARIABLES 

INTEGER  CHANNEL , BAUDRATE , BIT , BAUDVAL , DELAY , lOUT , I , 
IDELTA,  VALUE 
LOGICAL  VALID 

CHARACTER* 10  TMP ( 10 ) , WT , CONC 
CHARACTER*!  CHR , Tl , T2 , T3 , T4 , T5 , T6 , T7 , T8 
C  SET  BAUDRATE  AT  1200,  CHANNEL=2  (I.E.,  CHANNEL  G) 

C  AND  CALL  SUBROUTINE  BAUDSET 
BAUDRATE=1200 
CHANNEL=2 
VALID  =.TRUE. 

C  PRINT  *, 'CALLING  BAUDSET' 

CALL  BAUDSET (CHANNEL,  BAUDRATE,  VALID) 

C  SEND  CHARACTER  "R"  TO  REQUEST  DATA  TRANSMISSION  FROM  THE 
C  OMEGA  UNIT 

VALUE  =  82 

C  PRINT  * , ' CALLING  CHWRITE ' 

CALL  CHWRITE  (CHANNEL , VALUE, VALID) 

C  RECEIVE  THE  CHARACTERS  TRANSMITTED  BY  THE  OMEGA  UNIT 
DELAY=0 
DO  10  1=1,8 

CALL  CHREAD ( CHANNEL , DELAY , CHR , VALID ) 

C  PRINT  *,'!=',! 

TMP(I)=CHR 

C  PRINT  *, 'TEMP=' ,TMP(I) 

10  CONTINUE 
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C  DO  20  1=1,8 

C  WRITE (3, 100)  I,TMP(I) 

ClOO  FORMAT (■  ' , ' 1= ' , I2 , 2X, • TEMP= ' , 14 ) 

C20  CONTINUE 

T1=TMP(1) 

T2=TMP{2) 

T3=TMP(3) 

T4=TMP(4) 

T5=TMP(5) 

T6=TMP(6) 

T7=TMP(7) 

C  T8=TMP(8) 

WT=T1  //  T2  //  T3  //  T4  //  T5  //  T6  //  T7 
C  PRINT  *,'T='.WT,'  DEG  C 

TEMP=REAL(WT) 

RETURN 

END 


BATCH  FILE  USED  TO  COMPILE  THE  ABOVE  PROGRAM. 

NAME ;  OTEMP . BAT 

LISTING 

RUN  FORTRAN 

OTEMP. ASC:L 

RUN  FORTRAN 

BAUDSET.ASC:L 

RUN  FORTRAN 

CHWRITE.ASC:L 

RUN  FORTRAN 

CHREAD.ASCrL 

RUN  RELOAD 

:B=1000-53777 

OTEMP . REL : L 

BAUDSET.RELiL 

CHWRITE.RELrL 

CHREAD.REL:L 

IRVAL . REL  [ ROOT , HLIB ] : L 

FORRUN .LIB  [ ROOT , HLIB ] : R 

NICAPL.LIB  [ROOT, HLIB] :R 

DPSYS .LIB  [ ROOT , HLIB ] : R 

FIOS.LIB  [ROOT, HLIB] ;R 

NICSYS.LIB  [ROOT, HLIB] :R 

/-TT;U 

/OTEMP. FTN:S 

DEL  OTEMP. REL 

DEL  OTEMP. TMP 

DEL  BAUDSET.REL 

DEL  BAUDSET.TMP 

DEL  CHWRITE.REL 

DEL  CHWRITE.TMP 
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DEL  CHREAD.REL 
DEL  CHREAD.TMP 


APPENDIX  E 


SOFTWARE  LISTING  FOR  FORTRAN  PROGRAM  USED  TO 
READ  AND  REPORT  THE  CHAMBER  RELATIVE  HUMIDITY 


This  program  is  called  RH.  ASC.  It  was  written  with  the  text  editor  TED  and  compiled 
using  Nicolet  FORTRAN  77  (V8.06;  Ll-067-030486).  The  compiled  version  of  the  program  has 
the  .FTN  extension.  The  program  requests  data  from  a  Vaisala  Model  HMP  1 14Y 
humidity/temperature  transducer..  The  humidity  data  are  read  as  DC  volts  using  a  Goerz  Model 
M21 10  digital  VOM  with  an  RS-232  output  port  The  output  from  this  unit  was  read  as  a  series  of 
ASCn  numbers  through  the  Nicolet  1280  computer  RS-232  port  E  and  stored  in  the  FT-IR  file 
status  block  in  an  area  not  used  by  the  FT-IR  software. 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c  c 

C  PROGRAM  RH.ASC  C 

c  c 

C  THIS  IS  A  PROGRAM  TO  READ  ASCII  RELATIVE  HUMIDITY  C 

C  INTO  THE  FT-IR  DATA  SYSTEM  AND  STORE  THE  RESULT  IN  C 

C  EACH  SCRATCH  FILE  STATUS  BLOCK  IN  LOCATIONS  238-243.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  DEFINE  VARIABLES 

INTEGER  CHANNEL , BAUDRATE , BIT , BAUDVAL , DELAY , lOUT , I , 
IDELTA,  VALUE 

INTEGER  IDATA ( 5 12 ) , IH3 , IH4 , IH5 , IH6 , IH7 

LOGICAL  VALID 

REAL  R1 

CHARACTER* 6  H 

CHARACTER* 10  HUMID (10) 

CHARACTER* 1  CHR , RHl , RH2 , RH3 , RH4 , RH5 , RH6 , RH7 

FLASER=15798.2 

NPMAX=22528 

C 

C  READ  FT-IR  PARAMETERS  FOR  DATA  RETRIEVAL 

C 

IDFN=IRVAL ( 14022 , 0 ) 

NSECS=IRVAL { 14001 , 0 ) 

INODE=IRVAL (13004,0) 

NDPW=IRVAL ( 14000 , 0 ) 

IXSP=IRVAL (14025,0) 

IENP=IRVAL (14026,0) 

C 

C  LOCATE  SECTORS  TO  BE  READ  USING  THE  FOLLOWING  INDEX 

C 

IDFSEC= (IDFN+1) *NSECS+87 
C 

C  READ  HEADER  BLOCK  INFORMATION  USING  IRTISK.  STORE 

C  RESULTS  IN  AN  ARRAY  CALLED  IDATA. 
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c 

CALL  IRTISKdDATA,  512  ,  IDFSEC ,  INODE) 

C 

C  SET  BAUDRATE  AT  1200,  CHANNEL=1  (I.E.,  CHANNEL  E) 

C  AND  CALL  SUBROUTINE  BAUDSET 
BAUDRATE=1200 
CHANNEL=1 
VALID  =.TRUE. 

C  PRINT  * , • CALLING  BAUDSET ' 

CALL  BAUDSET (CHANNEL,  BAUDRATE,  VALID) 

C  SEND  CHARACTER  "ENQ"  TO  REQUEST  DATA  TRANSMISSION  FROM  THE 
C  M2 110  UNIT 

VALUE  =  5 

CALL  CHWRITE  (CHANNEL, VALUE, VALID) 

C  RECEIVE  THE  CHARACTERS  TRANSMITTED  BY  THE  M2 110  UNIT 
DELAY=0 
DO  10  1=1,7 

CALL  CHREAD( CHANNEL, DELAY, CHR, VALID) 

HUMID(I) =CHR 
10  CONTINUE 

RH1=HUMID ( 1 ) 

RH2=HUMID(2) 

RH3=HUMID(3) 

RH4=HUMID(4) 

RH5=HUMID(5) 

RH6=HUMID(6) 

RH7=HUMID(7) 

H=  RHl  //  RH4  //  RH5  //  RH3  //  RH6  //  RH7 
C  PRINT*, H 

C 

C  WRITE  THE  INDIVIDUAL  TEMPERATURE  CHARACTERS  TO  LOCATIONS 
C  238-243  OF  THE  IDATA  ARRAY 
C 

IDATA ( 2 3 8 ) = ICHAR ( RHl ) 

IDATA ( 2 3 9 ) = ICHAR ( RH4 ) 

IDATA (240 ) = ICHAR (RH5 ) 

IDATA (241 ) =ICHAR (RH3 ) 

IDATA ( 2 4 2 ) = ICHAR ( RH6 ) 

IDATA (243 ) =ICHAR (RH7 ) 

CALL  IWTISK (IDATA, 512 , IDFSEC , INODE ) 

CALL  EXIT 
END 


BATCH  FILE  USED  TO  COMPILE  THE  ABOVE  PROGRAM. 
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NAME:  RH.BAT 


LISTING 

RUN  FORTRAN 

RH.ASCiL 

RUN  FORTRAN 

BAUDS ET.ASCtL 

RUN  FORTRAN 

CHWRITE.ASCiL 

RUN  FORTRAN 

CHREAD.ASCiL 

RUN  RELOAD 

:B=1000-53777 

RH.REL:L 

BAUDSET.REL.-L 

CHWRITE . REL ; L 

CHREAD.RELiL 

IRVAL . REL  [ ROOT , HLIB ] : L 

FORRUN.LIB  [ROOT, HLIB] :R 

NICAPL.LIB  [ROOT, HLIB] :R 

DPSYS.LIB  [ROOT, HLIB] :R 

FIOS.LIB  [ROOT, HLIB] :R 

NICSYS.LIB  [ROOT, HLIB] :R 

/-TT:U 

/RH.FTNrS 

DEL  RH.REL 

DEL  RH.TMP 

DEL  BAUDSET.REL 

DEL  BAUDSET.TMP 

DEL  CHWRITE. REL 

DEL  CHWRITE. TMP 

DEL  CHREAD.REL 

DEL  CHREAD.TMP 


o  o  o  n  no 


APPENDIX  F 


SOFTWARE  LISTING  FOR  FORTRAN  PROGRAM  USED  TO 
PROCESS  AND  SEND  CHAMBER  DATA  TO  AN  EXTERNAL 
COMPUTER  FOR  ANALYSIS  AND  PLOTTING 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c  c 

C  PROGRAM  BLC003.ASC  C 
C  C 
C  THIS  PROGRAM  RETRIEVES  DATA  FROM  FT-IR  SCRATCH  FILES,  C 
C  AND  CALCULATES  BASELINE-CORRECTED  ABSORBANCE  VALUES  C 
C  FOR  ANALYTICAL  PEAKS.  THERE  IS  A  SUBROUTINE  FOR  EACH  C 
C  SPECIES  OF  INTEREST.  THERE  ARE  ALSO  SUBROUTINES  FOR  C 
C  TEMPERATURE  AND  RELATIVE  HUMIDITY  DETERMINATIONS.  C 
C  C 
C  THE  PROGRAM  IS  CALLED  WITH  MACRO  IR4  AND  FEEDS  DATA  C 
C  DIRECTLY  TO  A  LOGGING  FILE  (USING  REFLECTIONS  WITH  A  C 
C  Z-248  COMPUTER  OR  USING  ADVANCE  LINK  WITH  AN  HP-150  C 
C  COMPUTER)  OVER  AN  RS-232  LINE.  THE  OUTPUT  DATA  HAS  C 
C  THE  FORM:  C 
C  C 
C  32665  09  15  41  20.3  1.023  .897  .235  05.17  C 
C  C 
C  WHERE  THE  DATA  ARE  (IN  ORDER)  -  LOTUS -FORMAT  DATE,  TIME  OF  C 
C  ACQUISITION  OF  THE  FT-IR  FILE  (HH  MM  SS) ,  TEMPERATURE  C 
C  (DEG  C) ,  ABSORBANCE  VALUES  (3  ARE  SHOWN) ,  AND  %RH.  C 
C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C234567 

PROGRAM  DIMENSIONED  FOR  1.0  CM-1  SPECTRA 

REAL  Y(16384) , BPl ,LBP, PXA, PYA, CABS , XDIF, XDIF2 , YDIF, 

IFACI , FAC2 , EP , SP , Al , A2 , A3 , A4 , A5 , A6 
INTEGER  IDATA ( 512 ) , IDA (22528 ) , COUNT , DPI , DP2 , TFLAG , LDATE 
CHARACTER*2  HH,NN,SS 
CHARACTER* 1  CTl , CT2 , CT3 , CT4 
CHARACTER*!  Hl,H2,Nl,N2,Sl,S2 
CHARACTER*!  RHl , RH2 , RH3 , RH4 , RH5 , RH6 
CHARACTER* 4  CTEMP 
CHARACTER* 6  HUMID 

FLASER  =  15798.2 
NPMAX  =  22528 
SN  =  0 

'kitititit'kititititiritifit'kit'kitiUnfitieitit'kiticiciritiritifiriritifitifkiHe'kiric'kit'kiriritir'k'k'kit'kieitie 

READ  FTIR  PARAMETERS  FOR  DATA  RETRIEVAL: 

IDFN  =  IRVAL (14022,0) 

NSECS  =  IRVAL (14001,0) 

INODE  =  IRVAL (13004,0) 
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NDPW  =  IRVAL (14000,0) 

IXSP  =  IRVAL (14025,0) 

IXEP  =  IRVAL (14026,0) 

C 

C  THESE  IRVAL  FUNCTIONS  READ  THE  MEMORY  LOCATIONS 
C  CORRESPONDING  TO  THESE  PARAMETERS  (ALL  ARE  INTEGERS) : 
C 


C  (OCTAL) 

LOCATION 

PARAMETER 

C 

13004 

INODE  NO. 

C 

14000 

NDP  (=INTEGER/256) 

C 

14001 

FSZ  (=INTEGER/512) 

C 

14022 

DFN 

C 

14025 

XSP 

C 

14026 

XEP 

C 

^  itifit'k'k'kieit'kitificirititirit'k'kititit'kitit'ifkirieitititit'kititititititititicitit-kifk'kiticitieieic'kic'kieifk 

c 

C  READ  FTIR  PARAMETERS  FOR  SETTING  SUBROUTINE  FLAGS: 

C  (1=HZ,  2=MMH,  3=UDMH,  4=CH4,  5=H20,  6=NH3 ) 

C 

IFLAGl  =  IRVAL (13710,0) 

IFLAG2  =  IRVAL (13713,0) 

IFLAG3  =  IRVAL (13714,0) 

IFLAG4  =  IRVAL (13715,0) 

IFLAG5  =  IRVAL (13731,0) 

IFLAG6  =  IRVAL (13750,0) 

C 

C  PRINT  501, IFLAGl, IFLAG2,IFLAG3,IFLAG4,IFLAG5 
C  501  FORMAT  (•  '  ,  ’  IFLAG1=  M4 , 2X,  ‘  IFLAG2=  ',14 , 2X,  '  IFLAG3=  ' 
C  1,I4,2X,/, 'IFLAG4=  ' ,I4,2X, •IFLAG5=  ' , 14 , 2X, ' IFLAG6=  ',14, 
C  1/) 

C 

C  THESE  IRVAL  FUNCTIONS  READ  THE  MEMORY  LOCATIONS 
C  CORRESPONDING  TO  THESE  PARAMETERS  (ALL  ARE  INTEGERS): 

C 

C  (OCTAL)  LOCATION  PARAMETER 

C  13710  WTY 

C  13713  SMN 

C  13714  SIZ 

C  13715  ITR 

C  13731  MNT 

C  13750  RTO 

C 

Q  iiltltiHiltliltiHi-klUi'tHilHilili****************************************** 

c 

C  THE  FIRST  88  SECTORS  OF  THE  SCRATCH  AREA  (I.E.,  SECTORS  0-87) 
C  CONTAIN  MISCELLANEOUS  INFORMATION.  SCRATCH  FILE  0  BEGINS 
C  AT  SECTOR  88  AND  OCCUPIES  FSZ/512  SECTORS.  ALL  SUBSEQUENT 
C  FILES  ARE  THE  SAME  SIZE  AS  FILE  0. 

C 

C  THE  LAST  SECTOR  OF  EACH  FILE  IS  THE  FILE  STATUS  BLOCK.  THERE 
C  ARE  A  CONSIDERABLE  NUMBER  OF  SECTORS  BETWEEN  THE  END  OF  THE 
C  DATA  AND  THE  BEGINNING  OF  THE  FILE  STATUS  BLOCK.  IT  IS  NOT 
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CLEAR  WHAT  THESE  EXTRA  SECTORS  ARE  USED  FOR. 

it’kifitif'kititititititit'kiticitic'kififie'kicitieieiriritititicitifieitieititiKifif’kitirifif-kitif'kicir'kic-kitif-kic 


LOCATE  SECTORS  TO  BE  READ  USING  THE  FOLLOWING  INDEX. 

IDFSEC= (IDFN+l) *NSECS+87 
PRINT  998,  IDFSEC 
998  FORMAT (•  ' , ' IDFSEC=  ',16,//) 

ifiritirit'kitifif'k'kif'kitit'kicitirifiririrititif’kicieicitititiciciticicirirititititicitieieit'kifitititicitirieicit'k 


READ  HEADER  BLOCK  INFORMATION  USING  IRTISK.  STORE  RESULTS 
IN  AN  ARRAY  CALLED  IDATA. 

CALL  IRTISKdDATA,  512,  IDFSEC,  INODE) 

DO  10  1=1,17 
PRINT  1000,  I,IDATA(I) 

000  FORMAT (•  IDATA ‘ , 12 , 2X, '  =  ‘,16) 

10  CONTINUE 

NOW,  FILE  STATUS  INFO  CAN  BE  DETERMINED  FROM  THE  ELEMENTS 
OF  IDATA: 

lABS  =  ABSORBANCE  FLAG,  0  IF  ABSORBANCE 
IPTS  =  NO.  OF  DATA  POINTS 
FEXP  =  EXPONENT  FOR  FILE  SCALING 
FXAX  =  DATA  POINT  SPACING  ON  X  AXIS 

lABS  =  IDATA (10) 

IF  (lABS.NE.O)  GOTO  900 
IPTS  =  IDATA (15) *128 
FEXP  =  2** (19-IDATA(6) ) 

FXAX  =  FLASER/ (IPTS* IDATA (17) ) 

C  PRINT  980,  IPTS, FEXP, FXAX 

C  980  FORMAT ('  IPTS=  ' , I8 , 2X, ’ FEXP=  ' , ElO . 4 , 2X, ' FXAX=  ', 

C  1F10.5,/) 

C  - 

c 

c  NOW  DETERMINE  THE  STARTING  AND  ENDING  POINTS  FOR  THE  FILE  TO 
C  BE  READ.  THIS  IS  DONE  BY  TWO  SEQUENTIAL  IF  -  ENDIF  LOOPS. 

C  THE  FIRST  SETS  ISTP  EQUAL  TO  THE  LESSER  OF  XSP  AND  XEP 
C  (WHICH  ARE  READ  FROM  THE  FT-IR  SCRATCH  FILE  HEADER  BLOCK) . 

C  THE  SECOND  LOOP  CONVERTS  THE  XSP  AND  XEP  VALUES  FROM  CM-1 
C  TO  SCRATCH  FILE  DATA  POINT  VALUES.  THE  0.5  FACTOR  WHICH  IS 
C  ADDED  ENSURES  THAT  INTEGER  ISTP  AND  lENP  VALUES  ARE  ROUNDED 
C  CORRECTLY. 

C 

IF  (IXSP.LE.IXEP)  THEN 
ISTP  =  IXSP 
lENP  =  IXEP 
ELSE 

ISTP  =  IXEP 
lENP  =  IXSP 
ENDIF 

IF  ( IXSP. GT. IXEP)  THEN 
ISTP  =  IXEP/FXAX+0.5 
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lENP  =  IXSP/FXAX+0.5 
ELSE 

ISTP  =  IXSP/FXAX+0.5 
lENP  =  IXEP/FXAX+0.5 
ENDIF 

NP  =  IENP-ISTP+1 

PRINT  850,  ISTP,IENP,NP 

850  FORMATC  ISTP=  M6,2X,'IENP=  ■,I6,2X,'NP=  ',16,/) 

CHECK  FOR  A  REASONABLE  NO.  OF  PTS.  IN  NP 

IF  (NP.GT.NPMAX)  THEN 
WRITE(2,901)  NPMAX,NP 
ELSEIF  (NP.LT.5)  THEN 
WRITE (2, 902)  NP 
ENDIF 

NOW  READ  DATA  FROM  SCRATCH  FILE  DFN  INTO  ARRAY  IDA 

IN  IS  A  COUNTER.  NDONE  TAKES  THE  DATA  POINT  VALUE  OF  ISTP  AND 
CONVERTS  IT  TO  SECTORS.  NSKIP  TAKES  THE  STARTING  DATA  POINT 
VALUE  (ISTP)  AND  SUBTRACTS  AN  INTEGER  NO.  OF  DATA  POINTS,  BY 
SECTOR,  FROM  IT,  LEAVING  THE  POINT  IN  THE  SELECTED  SECTOR 
WHERE  DATA  REPRESENTING  THE  INTERVAL  ISTP  -  lENP  BEGIN. 

IN  =  1 

NDONE  =  ISTP/512 
NSKIP  =  ISTP-NDONE*512 
PRINT  400,  NDONE, NSKIP 

400  FORMAT (•  NDONE=  * , 18 , 2X, ’ NSKIP=  ’,I8,/) 

IF  THE  SCRATCH  FT-IR  FILE  HAD  XSP=0  OR  XEP=0,  THEN  DATA  CAN 
BE  READ  DIRECTLY,  ONCE  THE  PROPER  BEGINNING  SECTOR  IS 
SPECIFIED.  IF  XSP  OR  XEP  WERE  NOT  ZERO,  THEN  NDONE  SECTORS 
PLUS  NSKIP  POINTS  MUST  BE  SKIPPED  OVER  TO  BEGIN  READING  DATA. 

RESET  FLAG  FOR  BASELINE  CORRECTION  ROUTINE 

IFLAG=0 

IF  (NSKIP. GT.O)  THEN 

SET  FLAG  FOR  BASELINE  CORRECTION  ROUTINE 
IFLAG=1 

CALL  IRTISK ( IDA, 512 , 88+IDFN*NSECS+NDONE , INODE) 

DO  20  I=NSKIP+1, 512 
IDA(IN)  =  IDA(I) 

IN  =  IN  +  1 
20  CONTINUE 

NDONE  =  NDONE  +  1 
ENDIF 
C 

C  NPREM  IS  A  COUNTER  WHICH  TELLS  HOW  MANY  DATA  POINTS  TO  READ 
C  FROM  THE  FT-IR  SCRATCH  FILE  TO  COVER  THE  INTERVAL  SPECIFIED 
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C  BY  ISTP  AND  lENP. 

C 

NPREM  =  NP-IN+1 
C  PRINT  402,  IN, NPREM 

C  402  FORMAT  (■  ■  ,  *  IN=  '  ,  I6 , 2X,  ‘ NPREM=  MlO,/) 

IF  (NPREM. GT.O)  THEN 

CALL  IRTISH ( IDA ( IN) , NPREM, 88+IDFN*NSECS+NDONE, INODE) 
ENDIF 
C 

C  NOW  THE  POINTS  IN  THE  INTEGER  ARRAY  IDA  ARE  CONVERTED  TO  REAL 
C  VALUES  BY  DIVIDING  EACH  ONE  BY  FEXP  (SEE  FT-IR  SOFTWARE 
C  MANUAL,  P.  18-5  FOR  AN  EXPLANATION).  NOTE  THAT  ANY  TOTALLY 
C  ABSORBING  DATA  POINTS  HAVE  THE  VALUE  -524288  AND  THESE  ARE 
C  SET  EQUAL  TO  ZERO  IN  THE  REAL  DATA  ARRAY. 

C 

DO  50  I  =  1,NP 
IDAS  =  IDA (I) 

IF  ( IDAS. EQ. -524288)  IDAS  =  0 
Y(I)  =  IDAS/FEXP 
C  PRINT  403,I,Y(I) 

C  403  FORMAT ('  • , ' X ( ’ , I3 , ' ) = ‘ , F6 . 3 ) 

50  CONTINUE 
C  DO  51  1=1980,2032 

C  WN= (I-l) *FXAX 

C  PRINT  71,WN,Y(I) 

C  71  FORMATC  •  ,  '  WN=  '  ,  F8 . 3 , 2X,  '  Y=  *  ,  F8 . 3  ) 

C  51  . CONTINUE 

C 

C  NOW  THAT  THE  DATA  POINTS  ARE  AVAILABLE,  BASELINE  CORRECTION 
C  CAN  BE  MADE.  THE  CORRECTION  WILL  BE  MADE  IN  THE  SAME  MANNER 
C  IT  WOULD  BE  DONE  BY  HAND.  A  POINT  ON  ONE  SIDE  OF  THE 
C  ANALYTICAL  PEAK  WILL  BE  CHOSEN  BY  AVERAGING  THE  ABSORBANCE 
C  VALUES  OVER  A  CERTAIN  PORTION  OF  THE  X-AXIS.  FOR  SPECIES 
C  WHICH  HAVE  HIGHLY  STRUCTURED  PEAKS,  THIS  MAY  BE  A  VERY  SHORT 
C  DISTANCE  (E.G.,  METHANE  USES  A  2  CM-1  ON  ONE  SIDE  OF  THE 
C  ANALYTICAL  PEAK  AND  A  1.0  CM-1  INTERVAL  ON  THE  OTHER.  THESE 
C  INTERVALS  ARE  BASED  ON  EXPANDED  PLOTS  AND  ARE  CHOSEN  TO  GIVE 
C  POINTS  CLOSE  TO  THOSE  ONE  WOULD  CHOOSE  IF  DOING  THE  BASELINE 
C  CORRECTION  BY  HAND)  .  THE  SAME  THING  IS  DONE  ON  THE  OTHER 
C  SIDE  OF  THE  ANALYTICAL  PEAK.  THESE  POINTS  WILL  BE  DEFINED 
C  WITHIN  THE  SUBROUTINE  FOR  EACH  SEPARATE  SPECIES. 

Q  ************************************************************ 

c 

c 

C  TO  CONFORM  WITH  LOTUS  1-2-3  DATE  FORMAT,  READ  THE  VALUE  OF 
C  RTP,  THEN  PRINT  THIS  AS  LDATE 
C 

LDATE  =  IRVAL (13751,0) 

C  TO  AVOID  EXTRA  CHARACTERS  IN  THE  TIME  PRINTOUT, 

C  PICK  OUT  THE  CHARACTERS  NEEDED  FROM  THE  IDATA  ARRAY  AND 
C  CONCATENATE  THEM  INTO  THE  NECESSARY  OUTPUT. 

C 
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DO  25  1=58,65 

IF  (I.EQ.58)  THEN 

Hl=CHAR(IDATA(I)  ) 

ELSEIF  (I.EQ.59)  THEN 
H2=CHAR(IDATA(I) ) 

ELSEIF  (I.EQ.61)  THEN 
Nl=CHAR ( IDATA ( I ) ) 

ELSEIF  (I.EQ.62)  THFU 
N2=CHAR(IDATA(I) ) 

ELSEIF  (I.EQ.64)  THEN 
S1=CHAR(IDATA(I) ) 

ELSE  (I.EQ.65) 

S2=CHAR(IDATA(I) ) 

ENDIF 

25  CONTINUE 
C 

C  CONCATENATE  THE  APPROPRIATE  IDATA  ELEMENTS  TO  FORM  TIME 
C  CHARACTERS  WHICH  CAN  BE  PRINTED. 

C 

HH  =  HI  //  H2 
NN  =  N1  //  N2 
SS  =  SI  //  S2 
C 

C  RETRIEVE  THE  TEMPERATURE  CHARACTERS  FROM  THE  IDATA  ARRAY 
C  (THESE  CHARACTERS  ARE  WRITTEN  TO  THE  IDATA  ARRAY  DURING  DATA 
C  ACQUISITION  UNDER  THE  MACRO  AQ6  WITH  THE  FORTRAN  PROGRAM 
C  OTEMP.FTN) 

C 

CT1=CHAR ( IDATA ( 68 ) ) 

CT2  =CHAR { IDATA (69)) 

CT3  =CHAR ( IDATA (70)) 

CT4  =CHAR ( IDATA (71)) 

C 

C  NOW,  CONCATENATE  THESE  CHARACTERS  TO  FORM  THE  TEMPERATURE 
C 

CTEMP=CT1  //  CT2  //  CT3  //  CT4 
C 

C  RETRIEVE  THE  RELATIVE  HUMIDITY  CHARACTERS  FROM  THE  IDATA 
C  ARRAY  (THESE  CHARACTERS  ARE  WRITTEN  TO  THE  IDATA  ARRAY 
C  DURING  DATA  ACQUISITION  UNDER  THE  MACRO  AQ6WITH  THE 
C  FORTRAN  PROGRAM  RH.FTN) 

C 

RH1=CHAR( IDATA (238) ) 

RH2=CHAR( IDATA (239) ) 

RH3  =CHAR ( IDATA ( 240 ) ) 

RH4=CHAR( IDATA (241) ) 

RH5=CHAR(IDA't’A(242)  ) 

RH6=CHAR(  IDATA  (243)  ) 

C 

C  NOW,  CONCATENATE  THE  %RH  DATA  INTO  FINAL  FORM 
C 

HUMID=  RHl  //  RH2  //  RH3  //  RH4  //  RH5  //  HZ6 
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c 

C  DETERMINE  WHICH  SPECIES  ARE 
C 

844  IF  (IFLAGl.EQ.l)  CALL 
Al=CABS 

C  IF  ( IFLAG2 . EQ . 1 )  CALL 

C  A2=CABS 

C  IF  ( IFLAG3 . EQ . 1 )  CALL 

C  A3=CABS 

IF  ( IFLAG4 . EQ . 1 )  CALL 
A4=CABS 

IF  (IFLAG5.EQ.1)  CALL 
A5=CABS 

IF  (IFLAG6.EQ.1)  CALL 
A6=CABS 


TO  BE  ANALYZED. 

HZ(Y,FXAX,CABS) 

MMH(Y,FXAX,CABS) 

UDMH(Y,FXAX,CABS) 

CH4 (Y,FXAX,CABS) 

H20{Y,FXAX,CABS) 

NH3 (Y,FXAX,CABS) 


C 

850  PRINT  150, LDATE,HH,NN,SS,CTEMP.A1,A4,A5,A6, HUMID 
150  FORMAT (•  ' , 15 , 2X, 3 (A2 , 2X) , A4 . 2X, 4 (F6 . 3 ) , 2X, A6 ) 

C 


GOTO  999 


C 

C  FORMAT  STATEMENTS 
C 

900  WRITE(2,990)  IDATA(IO) 

901  FORMAT ('  ONLY  DIMENSIONED  TO  ',16,'  PTS','NOT  ' , I6 

1,/,) 

902  FORMAT ( '  ' , 'WHY  ARE  THERE  ONLY  ' , I6 , ' PTSREQUESTED? ' , / , ) 

990  FORMAT ('  ',//,'  ABSORBANCE  FLAG  =  ',I2,2X, 'NOT  AN 

ABSORBANCE  FILE ',11) 

999  CONTINUE 
CALL  EXIT 
END 


BATCH  FILE  USED  TO  COMPILE  THE  ABOVE  PROGRAM. 

NAME:  BLC003,BAT 

LISTING 

RUN  FORTRAN 
BLC003.ASC:L 
RUN  FORTRAN 
HZ.ASC:L 
RUN  FORTRAN 
CH4.ASC:L 
RUN  FORTRAN 
NH3 . ASC : L 
RUN  FORTRAN 
H20.ASC:L 
RUN  RELOAD 
:B=1000-53777 
BLC003.REL:L 
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HZ . REL : L 
CH4.REL:L 
NH3 . REL : L 
H20 . REL ; L 

IRVAL . REL  [ ROOT , HLIB ] : L 
FORRUN .LIB  [ ROOT , HL IB ] ; R 
NICAPL.LIB  [ROOT, HLIB] :R 
DPSYS.LIB  [ROOT, HLIB] :R 
FIOS.LIB  [ROOT, HLIB] :R 
NICSYS.LIB  [ROOT, HLIB] :R 
/-TT:U 

/BLC003 .FTN:S 
DEL  BLC003.REL 
DEL  BLC003.TMP 
DEL  HZ. REL 
DEL  HZ.TMP 
DEL  CH4.REL 
DEL  CH4.TMP 
DEL  NH3.REL 
DEL  NH3.TMP 
DEL  H20.REL 
DEL  H20.TMP 
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APPENDIX  G 


SOFTWARE  LISTING  FOR  FORTRAN  PROGRAM  USED  TO 
CALCULATE  THE  BASELINE-CORRECTED  ABSORBANCE 
VALUE  FOR  HYDRAZINE  VAPOR  AT  957  CM- 1 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c  c 

C  SUBROUTINE  HZ ( Y , FXAX , CABS )  C 

c  c 

C  CALCULATES  THE  BASELINE  BY  TAKING  THE  AVERAGE  OF  POINTS  C 

C  ON  ONE  SIDE  OF  THE  ANALYTICAL  PEAK  (1180  -  1160  CM-1)  FOR  THE  C 
C  BEGINNING  POINT.  THEN  TAKING  THE  AVERAGE  OF  POINTS  ON  C 

C  THE  OTHER  SIDE  OF  THE  ANALYTICAL  PEAK  (860  -  846)  FOR  THE  C 
C  ENDING  POINT.  A  LINE  CONNNECTING  THESE  TWO  POINTS  FORMS  C 

C  THE  BASELINE.  THE  ABSORBANCE  VALUE  AT  THE  ANALYTICAL  C 

C  PEAK  (957  CM-1)  IS  THEN  CORRECTED  TO  THIS  MEASURED  BASELINE.  C 
C  C 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

REAL  Y (22528) , BPl , LBP, PXA, PYA, CABS , XDIF, XDIF2 , YDIF, 
1FAC1,FAC2,EP,SP, IC 
INTEGER  COUNT 

DEFINE  THE  BASELINE  POINTS  FOR  THE  HYDRAZINE  ANALYTICAL  PEAK 

IPT1=1180/FXAX 
IPT2=1160/FXAX 
IPT3=860/FXAX 
IPT4=846/FXAX 

PRINT  35,  IPT1,IPT2,IPT3,IPT4 

35  FORMAT  ('  '  , 'IPT1=M4,2X, ’IPT2=*  ,I4,2X, 'IPT3=M4,2X, 
l’IPT4=* ,14, /) 

AVERAGE  THE  POINTS  FOR  THE  1ST  BASELINE  VALUE 

SP  =  0 
BP1=  0 
COUNT  =  0 
IFIRST=IPT1 
ILAST  =IPT2 

NOW  CALCULATE  FIRST  BASELINE  POINT 
PRINT  36,  IFIRST, ILAST 

36  FORMAT ('  ‘ ' IFIRST= ■ , I4 , 2X, ' ILAST= ' , I4 , / ) 

DO  70  1= ILAST, IFIRST 

SP=SP+Y(I) 

COUNT=COUNT+l 

CALCULATE  WAVENUMBER  VALUES  FOR  PRINTOUT 
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WN= (I-l) *FXAX 

PRINT  37, WN, Y(I) ,SP, COUNT 

37  FORMATC  ■  ,  •WN=' ,F8.3,2X,  •Y(I)  =  ' ,F8.3,2X,  •SP=' ,F8.3, 

12X, •COUNT=' ,16) 

70  CONTINUE 

BP1=SP/C0UNT 

AVERAGE  THE  POINTS  FOR  THE  2ND  BASELINE  VALUE 

EP  =  0 
LBP  =  0 
COUNT  =  0 
IFIRST=IPT3 
ILAST  =IPT4 

NOW  CALCULATE  THE  SECOND  BASELINE  POINT 

DO  80  I=ILAST, IFIRST 
EP=EP+Y(I) 

COUNT=COUNT+l 
80  CONTINUE 

LBP=EP/COUNT 

PRINT  OUT  THE  BASELINE  DETERMINING  POINTS 
PRINT  85,  BP1,LBP 

85  FORMATC  *  ,  F9 . 4 , 2X,  ‘  LBP=  •,F9.4,/) 

DETERMINE  THE  X,Y  VALUES  (CM-1  AND  ABS.)  FOR  THE 
ANALYTICAL  PEAK  (957  CM-1)  BY  FINDING  THE  MAXIMUM  Y  VALUE 
IN  THE  INTERVAL  FOR  THIS  PEAK  WHICH  IS:  959  CM-1  TO  956 
CM-1  (OR  IN  DATA  POINT  VALUES:  1989  TO  1982). 

PXA=0 

PYA=0 

DO  82  1=1982,1989 

IF  (Y(I) .GT.Y(I-l) )  THEN 
PYA=Y(I) 

IC=I-1 

PXA=IC*FXAX 

ENDIF 

PRINT  299, I,Y(I) ,PYA,IC,PXA 

299  FORMATC  ■  ,  '1=' ,I4,2X,  •Y=' ,F8.3,2X,  'PYA=' ,F8.3,2X, 

l'IC=' ,F8.3,2X, •PXA=' ,F8.3) 

82  CONTINUE 

PRINT  86,PXA,PYA 

86  FORMATC  ','PXA=  '  ,  F8 . 3 , 2X,  ’  PYA=  ■,F8.3,/) 

CALCULATE  THE  BASELINE  CORRECTION.  THERE  ARE  TWO  POSSIBLE 
CASES:  (A)  POSITIVE  SLOPING  BASELINE,  OR  (B)  NEGATIVE 

SLOPING  BASELINE. 

CASE  (A)  -  POSITIVE  SLOPING  BASELINE  (BPl  <  LBP) 
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SKIP  TO  CASE  (B)  IF  BASELINE  SLOPE  IS  NEGATIVE 

IF (BPl.GT.LBP)  GOTO  3000 

OTHERWISE  PROCEED  WITH  THE  CORRECTION 

DP1= (1180+1160) /2 

DP2=(860+846) /2 

YDIF=LBP-BP1 

XDIF=DP1-DP2 

XDIF2=DP1-PXA 

FAC1=XDIF2/XDIF 

FAC2=FAC1*YDIF 

FAC2=FAC2+BP1 

PRINT  87,  DP1,DP2, YDIF,XDIF,XDIF2,FAC1,FAC2 

87  FORMAT {■  • , •DP1=‘ ,F8.3,2X, •DP2=' ,F8.3,2X, •YDIF=' ,F9.4,2X, 
l'XDIF=' ,F9.4,2X, •XDIF2=* ,F9.4,2X,/, *FAC1=‘ ,F9.4,2X, •FAC2=' , 
2F9.4,/) 

GOTO  3500 

CASE  (B)  -  NEGATIVE  SLOPING  BASELINE  (BPl  >  LBP) 

3000  CONTINUE 

DP1= (1180+1160) /2 

DP2=(860+846)/2 

YDIF=BP1-LBP 

XDIF=DP1-DP2 

XDIF2=PXA-DP2 

FAC1=XDIF2/XDIF 

FAC2=FAC1*YDIF 

FAC2=FAC2+LBP 

PRINT  57,  DP1,DP2, YDIF,XDIF,XDIF2,FAC1,FAC2 
57  FORMAT (■  ' , ' DPl= ' , F8 . 3 , 2X, * DP2= ’ , F8 . 3 , 2X, • YDIF= ‘ , F9 . 4 , 2X, 

l'XDIF=' ,F9.4,2X, 'XDIF2=' ,F9.4,2X,/, ’FAC1=' ,F9.4,2X, •FAC2=' , 
2F9.4,/) 

3500  CONTINUE 

APPLY  THE  CORRECTION  TO  THE  ABSORBANCE  VALUE  FROM  PPK 
CABS=PYA-FAC2 

PRINT  OUT  CORRECTED  ABSORBANCE  VALUE 

PRINT  88,  CABS 

88  FORMAT ('  '  , F4 . 3 ) 

135C-‘),/) 

END  THE  SUBROUTINE 

RETURN 

END  [NOTE:  this  program  was  compiled  and  linked  as  a 
subroutine  of  BLC003.ASC.  See  Appendix  F  for  the 
applicable  batch  file  listing.] 
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APPENDIX  H 


SOFTWARE  USTING  FOR  FORTRAN  PROGRAM  USED  TO 
CALCULATE  TOE  BASELINE-CORRECTED  ABSORBANCE 
VALUES  FOR  METHANE  VAPOR  AT  3018  CM-1  AND  1305  CM-1 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c  c 

C  SUBROUTINE  CH4 { Y, FXAX, CABS )  C 
C  C 
C  CALCULATES  THE  BASELINE  BY  TAKING  THE  AVERAGE  OF  POINTS  C 
C  ON  ONE  SIDE  OF  THE  ANALYTICAL  PEAK  (3026  -  3023  CM-1)  FOR  THE  C 
C  BEGINNING  POINT.  THEN  TAKING  THE  AVERAGE  OF  POINTS  ON  C 
C  THE  OTHER  SIDE  OF  THE  ANALYTICAL  PEAK  (2996  -  2992)  FOR  THE  C 
C  ENDING  POINT.  A  LINE  CONNNECTING  THESE  TWO  POINTS  FORMS  C 
C  THE  BASELINE.  THE  i^BSORBANCE  VALUE  AT  THE  FIRST  ANALYTICAL  C 
C  PEAK  (3018  CM-1)  IS  THEN  CORRECTED  TO  THIS  MEASURED  BASELINE.  C 
C  THE  SECOND  ANALYTICAL  PEAK  AT  1305  CM-1  IS  CORRECTED  C 
C  SIMILARLY.  (ONLY  THE  1305  CM-1  PEAK  WAS  USED  IN  THIS  STUDY.)  C 
C  C 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  CH4(X,FXAX) 

REAL  X (22528) ,BPl,LBP,PXA,PYA,CABS,XDIF,XDIF2, YDIF, 
1FAC1,FAC2,EP,SP,IC 
INTEGER  COUNT 

DEFINE  THE  BASELINE  POINTS  FOR  METHANE 
--  FIRST:  THE  PEAK  AT  3018  CM-1  -- 

IPT1=3026/FXAX 
IPT2=3023/FXAX 
IPT3=2996/FXAX 
IPT4=2992/FXAX 

--  SECOND;  THE  PEAK  AT  1305  CM-1  -- 

IPT5=1310/FXAX 
IPT6=1308/FXAX 
IPT7 =1280 /FXAX 
IPT8=1279/FXAX 

PRINT  35,  IPT1,IPT2,IPT3,IPT4 

35  FORMAT (■  ■ , •IPT1=' ,I4,2X, 'IPT2=' ,I4,2X, 'IPT3=' ,I4,2X, 

1' IPT4=' ,14, /) 

AVERAGE  THE  POINTS  FOR  THE  1ST  BASELINE  VALUE,  3018  CM-1  PEAK 

SP  =  0 
BP1=  0 
COUNT  =  0 
IFIRST=IPT1 
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ILAST  =IPT2 


NOW  CALCULATE  FIRST  BASELINE  POINT 
PRINT  36,  IFIRST, ILAST 

36  FORMAT (■  ■ , •IFIRST=' ,I4,2X, •ILAST=‘ ,14,/) 

DO  70  1= ILAST, IFIRST 

SP=SP+X{I) 

COUNT=COUNT+l 

CALCULATE  WAVENUMBER  VALUES  FOR  PRINTOUT 

WN=  (I-l) *FXAX 

PRINT  37, WN, X(I) ,SP, COUNT 

37  FORMAT (■  ' , •WN= ’ ,F8 .3 , 2X, ‘X (I) = ' , F8 . 3 , 2X, ' SP= ' , F8 . 3 , 2X, 

l'COUNT=' ,16) 

70  CONTINUE 

BPl=SP/COUNT 

AVERAGE  THE  POINTS  FOR  THE  2ND  BASELINE  VALUE,  3018  CM-1  PEAK 

EP  =  0 
LBP  =  0 
COUNT  =  0 
IFIRST=IPT3 
ILAST  =IPT4 

NOW  CALCULATE  THE  SECOND  BASELINE  POINT 

DO  80  I=ILAST, IFIRST 
EP=EP+X(I) 

COUNT=COUNT+l 
80  CONTINUE 

LBP=EP/COUNT 

PRINT  OUT  THE  BASELINE  DETERMINING  POINTS 
PRINT  85,  BP1,LBP 

85  FORMAT (•  ',’BP1=  ' , F9 , 4 , 2X, ’ LBP=  ’,F9.4,/) 

DETERMINE  THE  X,Y  VALUES  (CM-1  AND  ABS.)  FOR  THE  FIRST 
ANALYTICAL  PEAK  (3018  CM-1)  BY  FINDING  THE  MAXIMUM  Y  VALUE 
IN  THE  INTERVAL  FOR  THIS  PEAK  WHICH  IS:  3020  CM-1  TO  3010 
CM-1  (OR  IN  DATA  POINT  VALUES:  6263  TO  6243). 


PXAsO 

PYA=0 

DO  82  1=6243,6263 

IF  (X(I) .GT.X(I-l) )  THEN 
PYA=X ( I ) 

IC=I-1 

PXA=IC*FXAX 

ENDIF 

PRINT  299,I,X(I) ,PYA,IC,PXA 


C 
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C  299  FORMATC  '  ,  '  1= ',14 , 2X,  •X=  '  ,  F8 . 3 , 2X,  ‘  PYA=  '  ,  F8 . 3 , 2X, 

C  l'IC=' ,F8.3,2X, 'PXA=' ,F8.3) 

82  CONTINUE 

PRINT  86,PXA,PYA 

86  FORMATC  ','PXA=  '  ,  F8 . 3 , 2X.  ’  PYA=  •,F8.3,/) 

CALCULATE  THE  BASELINE  CORRECTION.  THERE  ARE  TWO  POSSIBLE 
CASES:  (A)  POSITIVE  SLOPING  BASELINE,  OR  (B)  NEGATIVE 

SLOPING  BASELINE. 

CASE  (A)  -  POSITIVE  SLOPING  BASELINE  (BPl  <  LBP) 

SKIP  TO  CASE  (B)  IF  BASELINE  SLOPE  IS  NEGATIVE 

IF(BPl.GT.LBP)  GOTO  3000 

OTHERWISE  PROCEED  WITH  THE  CORRECTION 

DPl=(3026+3023)/2 
DP2= (2996+2992) /2 
YDIF=LBP-BP1 
XDIF=DP1-DP2 
XDIF2=DP1-PXA 
FAC1=XDIF2/XDIF 
FAC2=FAC1*YDIF 
FAC2=FAC2+BP1 

PRINT  87,  DP1,DP2,YDIF,XDIF,XDIF2,FAC1,FAC2 

87  FORMATC  '  , ‘DP1=  ‘  ,F8 . 3 , 2X,  '  DP2=  ’  ,  F8 . 3 , 2X,  •  YDIF=  ‘  ,  F9 . 4 , 2X, 
l'XDIF=' ,F9.4,2X, •XDIF2=' ,F9.4,2X,/, ' FAC1= ’ , F9 . 4 , 2X, •FAC2=' , 
2F9.4,/) 

GOTO  3500 

CASE  (B)  -  NEGATIVE  SLOPING  BASELINE  (BPl  >  LBP) 

3000  CONTINUE 

DP1= (3026+3023 ) /2 
DP2=(2996+2992)/2 
YDIF=BP1-LBP 
XDIF=DP1-DP2 
XDIF2=PXA-DP2 
FAC1=XDIF2/XDIF 
FAC2=FAC1*YDIF 
FAC2=FAC2+LBP 

PRINT  57,  DP1,DP2, YDIF,XDIF,XDIF2,FAC1,FAC2 
57  FORMATC  '  ,  '  DP1=  '  ,  F8 . 3 , 2X,  '  DP2=  ’  ,  F8 . 3 , 2X,  '  YDIF=  '  ,  F9 . 4 , 2X, 
l'XDIF=' ,F9.4,2X, ' XDIF2= * , F9 . 4 , 2X, / , ’FAC1=' ,F9.4,2X, ■FAC2=- , 
2F9.4,/) 

3500  CONTINUE 

APPLY  THE  CORRECTION  TO  THE  ABSORBANCE  VALUE  FROM  PPK 
CABS=PYA-FAC2 

PRINT  OUT  CORRECTED  ABSORBANCE  VALUE 
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PRINT  88,  CABS 

88  FORMAT(35( •-•),/,  '  ' , *  PEAK  ABS ( CH4 ,  3018CM-1)=  ■,F6.3) 

AVERAGE  THE  POINTS  FOR  THE  1ST  BASELINE  VALUE,  1305  CM-1  PEAK 

SP  =  0 
BP1=  0 
COUNT  =  0 
IFIRST=IPT5 
ILAST  =IPT6 

NOW  CALCULATE  FIRST  BASELINE  POINT 
PRINT  38,  IFIRST, ILAST 

38  FORMAT (•  ‘ ' IFIRST= ' , 14 , 2X, ’ ILAST= ' , 14 , / ) 

DO  72  1= ILAST, IFIRST 

SP=SP+X(I) 

COUNT=COUNT+l 

CALCULATE  WAVENUMBER  VALUES  FOR  PRINTOUT 

WN= (I-l) *FXAX 

PRINT  39, WN, X(I) ,SP, COUNT 

39  FORMAT ('  • , 'WN=’ ,F8.3,2X, •X(I)=' ,F8.3,2X, ■SP=' ,F8.3,2X, 
l'COUNT=’ ,16) 

72  CONTINUE 

BP1=SP/C0UNT 

AVERAGE  THE  POINTS  FOR  THE  2ND  BASELINE  VALUE,  3018  CM-1  PEAK 

EP  =  0 
LBP  =  0 
COUNT  =  0 
IFIRST=IPT7 
ILAST  =IPT8 

NOW  CALCULATE  THE  SECOND  BASELINE  POINT 

DO  83  I=ILAST, IFIRST 
EP=EP+X(I) 

COUNTsCOUNT+1 
83  CONTINUE 

LBP=EP/COUNT 

PRINT  OUT  THE  BASELINE  DETERMINING  POINTS 
PRINT  67,  BP1,LBP 

67  FORMAT (•  ■,'BP1=  ' , F9 . 4 , 2X, ‘ LBP=  •,F9.4,/) 

DETERMINE  THE  X,Y  VALUES  (CM-1  AND  ABS.)  FOR  THE  FIRST 
ANALYTICAL  PEAK  (1305  CM-1)  BY  FINDING  THE  MAXIMUM  Y  VALUE 
IN  THE  INTERVAL  FOR  THIS  PEAK  WHICH  IS:  1307  CM-1  TO  1304 
CM-1  (OR  IN  DATA  POINT  VALUES:  2710  TO  2704). 
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c 

PXA=0 

PYA=0 

DO  84  1=2704,2710 

IF  (X(I) .GT.X(I-l) )  THEN 
PYA=X(I) 

IC=I-1 

PXA=IC*FXAX 

ENDIF 

C  PRINT  399, I,X(I) ,PYA,IC,PXA 

C  399  FORMATC  '  ,  '  1=  '  ,  I4 , 2X,  •X= '  ,  F8 . 3 , 2X,  '  PYA=  '  ,  F8 . 3 , 2X, 

C  l'IC=' ,F8.3,2X, ■PXA=' ,F8.3) 

84  CONTINUE 
C  PRINT  89,PXA,PYA 

C  89  FORMATC  ■,'PXA=  *  ,  F8 . 3 , 2X,  ‘  PYA=  •,F8.3,/) 

C 

C  CALCULATE  THE  BASELINE  CORRECTION.  THERE  ARE  TWO  POSSIBLE 
C  CASES:  (A)  POSITIVE  SLOPING  BASELINE,  OR  (B)  NEGATIVE 
C  SLOPING  BASELINE. 

C 

C  CASE  (A)  -  POSITIVE  SLOPING  BASELINE  (BPl  <  LBP) 

C 

C  SKIP  TO  CASE  (B)  IF  BASELINE  SLOPE  IS  NEGATIVE 
C 

IF(BPl.GT.LBP)  GOTO  3100 
C 

C  OTHERWISE  PROCEED  WITH  THE  CORRECTION 
C 

DPl= (1310+1308) /2 

DP2= (1280+1279 )/2 

YDIF=LBP-BP1 

XDIF=DP1-DP2 

XDIF2=DP1-PXA 

FAC1=XDIF2/XDIF 

FAC2=FAC1*YDIF 

FAC2=FAC2+BP1 

C  PRINT  187,  DP1,DP2, YDIF,XDIF,XDIF2,FAC1,FAC2 

C  187  FORMATC  '  ,  •  DPl=  '  ,  F8 .3 , 2X,  •DP2= '  ,  F8 . 3 , 2X,  '  YDIF=  '  ,  F9 . 4 , 2X, 
C  l'XDIF=' ,F9.4,2X, ' XDIF2= • , F9 . 4, 2X, / , •FACl=' ,F9.4,2X, ■FAC2=' , 

C  2F9.4,/) 

GOTO  4500 
C 

C  CASE  (B)  -  NEGATIVE  SLOPING  BASELINE  (BPl  >  LBP) 

C 

3100  CONTINUE 

DP1= (1310+1308) /2 
DP2= (1280+1279 )/2 
YDIF=BP1-LBP 
XDIF=DP1-DP2 
XDIF2=PXA-DP2 
FAC1»XDIF2/XDIF 
FAC2=FAC1*YDIF 
FAC2=FAC2+LBP 
4500  CONTINUE 
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c 

C  APPLY  THE  CORRECTION  TO  THE  ABSORBANCE  VALUE  FROM  PPK 
C 

CABS=PYA-FAC2 

C 

C  PRINT  OUT  CORRECTED  ABSORBANCE  VALUE 
C 

C  PRINT  188,  CABS 

C  188  FORMATC  '  ,  ‘  PEAK  ABS  {CH4  ,  1305  CM-1)=  ’ F6 . 3  ,  /  ,  35  (  ‘  , 

C  1/) 

C 

C  END  THE  SUBROUTINE 
C 

RETURN 

END 

[NOTE:  this  program  was  compiled  and  linked  as  a  subroutine  of 

BLC003.ASC.  See  Appendix  F  for  the  applicable  batch  file 
listing.] 
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APPENDIX  I 


SOFTWARE  LISTING  FOR  FORTRAN  SUBROUTINE  USED  TO 
CALCULATE  THE  BASELINE-CORRECTED  ABSORBANCE 
VALUE  FOR  AMMONIA  VAPOR  AT  967  CM-1 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c  c 

C  SUBROUTINE  NH3 (y,FXAX, CABS)  C 

c  c 

C  AMMONIA  AND  HYDRAZINE  ABSORBANCE  BANDS  HAVE  ALMOST  C 

C  COMPLETE -OVERLAP  IN  THE  700  -  1000  CM-1  REGION.  TO  MEASURE  C 

C  THE  AMMONIA  ABSORBANCE  IN  THIS  REGION,  THEREFORE,  IT  IS  C 

C  NECESSARY  TO  FIRST  SUBTRACT  OUT  THE  CONTRIBUTION  FROM  THE  C 

C  HYDRAZINE.  THIS  WAS  DONE  BY  RECORDING  A  REFERENCE  C 

C  HYDRAZINE  SPECTRUM  AND  THEN  DOING  A  SCALED,  POINT -BY -POINT  C 

C  SUBTRACTION  OF  THE  HYDRAZINE  FROM  THE  MIXTURE  SPECTRUM.  C 

C  THE  HYDRAZINE  REFERENCE  SPECTRUM  IS  STORED  AS  A  DATA  C 

C  STATEMENT  IN  THE  BEGINNING  OF  THE  PROGRAM.  C 

C  C 

C  ONCE  THE  HYDRAZINE  CONTRIBUTION  IS  SUBTRACTED,  OUT  THIS  C 

C  SUBROUTINE  CALCULATES  THE  BASELINE  BY  TAKING  THE  AVERAGE  C 

C  OF  POINTS  ON  ONE  SIDE  OF  THE  ANALYTICAL  PEAK  (980  -  975  CM-1)  C 

C  FOR  THE  BEGINNING  POINT.  THEN  TAKING  THE  AVERAGE  OF  POINTS  C 

C  ON  THE  OTHER  SIDE  OF  THE  ANALYTICAL  PEAK  (957  -  955)  FOR  THE  C 

C  ENDING  POINT.  A  LINE  CONNNECTING  THESE  TWO  POINTS  FORMS  C 

C  THE  BASELINE.  THE  ABSORBANCE  VALUE  AT  THE  ANALYTICAL  C 

C  PEAK  (967  CM-1)  IS  THEN  CORRECTED  TO  THIS  MEASURED  BASELINE.  C 

C  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 


SUBROUT INE  NH3 ( Y , FXAX , CABS ) 

C 

REAL  Y (22528) , BPl, LBP, PXA, PYA, CABS , XDIF, XDIF2 , YDIF, 

IFACI , FAC2 , EP , SP , IC , REF ( 100 ) , SCALE , TEM 
INTEGER  COUNT 

DATA  REF/. 942, 1.005, .871, .852, .919, .952,1.031,1.024, .923, 

1.812. . 725. .588. .585. .715. .712. .668. .745. .813. .819. .828, 

2.802. . 853. .940. .910. .789. .809. .823. .664. .585. .626. .643, 

3.609. . 628. .661. .706. .824. .738. .605. .712. .890. .818. .651, 

4.639. . 658. .557,  .521, .495, .466, .516, .522, .456, .500, .597/ 

C 

C  DEFINE  THE  BASELINE  POINTS  FOR  THE  AMMONIA  ANALYTICAL  PEAK 
C 

IPT1=980/FXAX 

IPT2=975/FXAX 

IPT3=957/FXAX 

IPT4=955/FXAX 

C 

C  PRINT  35,  IPTl , IPT2 , IPT3 , IPT4 

C  35  FORMATC  ' , ’ IPT1= ' , 14 , 2X, ' IPT2= ' , I4 , 2X, ' IPT3= ' , 14 , 2X, 

C  l’IPT4=' ,14, /) 
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FIND  THE  SCALE  FACTOR  FOR  SUBTRACTING  OUT  HYDRAZINE 
SCALE=ABS(Y(1987)/REF(7) ) 

PRINT  *, •Y(1987)=' , Y(1987) , 'REF (7)=' ,REF{7) , ' SCALE= ' , 
ISCALE 

SUBTRACT  OUT  THE  HYDRAZINE  CONTRIBUTION  TO  THE  ABSORBANCE 
FROM  955  TO  980  CM-1  SO  THAT  AMMONIA  ABSORBANCE  CAN  BE 
COMPUTED  ACCURATELY 

DO  40  1=  IPT4,IPTl 
J=I+1-IPT4 
TEM=Y(I) 

REF ( J) =SCALE*REF ( J) 

Y(I)=Y(I)-REF(J) 

PRINT  42, 1,TEM, Y(I) ,REF(J)  ,  J 

42  FORMATC  ’  ,  ‘  1=  '  ,  I6 , 2X,  ‘  Y  (I)  =  *  ,  F6 . 3 , 2X,  '  Y  ( I)  CORR.  =  ', 

1F6.3,2X, •REF(J)=' ,F6.3,2X, • J=' ,14) 

40  CONTINUE 

AVERAGE  THE  POINTS  FOR  THE  1ST  BASELINE  VALUE 

SP  =  0 
BP1=  0 
COUNT  =  0 
IFIRST=IPT1 
ILAST  =IPT2 

NOW  CALCULATE  FIRST  BASELINE  POINT 
PRINT  36,  IFIRST, ILAST 

36  FORMATC  '  ,  •  IFIRST=  •  ,  14 , 2X,  *  ILAST=  ’  ,  14 ,  /  ) 

DO  70  I=ILAST, IFIRST 

SP=SP+Y(I) 

COUNT=COUNT+l 

CALCULATE  WAVENUMBER  VALUES  FOR  PRINTOUT 

WN=(I-1) *FXAX 

PRINT  37, WN, Y(I) ,SP, COUNT 

37  FORMATC  ■  ,  ■WN=' ,F8.3,2X,  •y(I)  =  ’ ,F8.3,2X, 'SP=' ,F8.3, 
12X, 'COUNT=' ,16) 

70  CONTINUE 

BPl=SP/COUNT 

AVERAGE  THE  POINTS  FOR  THE  2ND  BASELINE  VALUE 

EP  =  0 
LBP  =  0 
COUNT  =  0 
IFIRST=IPT3 
ILAST  =IPT4 
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C  NOW  CALCULATE  THE  SECOND  BASELINE  POINT 
C 

DO  80  I=ILAST, IFIRST 
EP=EP+Y(I) 

COUNT=COUNT+l 
80  CONTINUE 

LBP=EP/COUNT 

C 

C  PRINT  OUT  THE  BASELINE  DETERMINING  POINTS 
C 

C  PRINT  85,  BP1,LBP 

C  85  FORMAT (•  • , ' BPl=  ' , F9 . 4 , 2X, ‘ LBP=  • , F9 . 4 , / ) 

C 

C  DETERMINE  THE  X,Y  VALUES  (CM-1  AND  ABS.)  FOR  THE 
C  ANALYTICAL  PEAK  (967  CM-1)  BY  FINDING  THE  MAXIMUM  Y  VALUE 
C  IN  THE  INTERVAL  FOR  THIS  PEAK  WHICH  IS:  970  CM-1  TO  960 
C  CM-1  (OR  IN  DATA  POINT  VALUES:  2011  TO  1991). 

C 

PXA=0 

PYA=0 

DO  82  1=1991,2011 

IF  (Y(I) .GT.Y(I-l) )  THEN 
PYA=Y(I) 

IC=I-1 

PXA=IC*FXAX 

ENDIF 

C  PRINT  299, I,Y(I) ,PYA,IC,PXA 

C  299  FORMATC  ’  ,  *  1=  *  ,  14 , 2X,  ‘  Y=  •  ,  F8 . 3 , 2X,  '  PYA=  '  ,  F8 . 3 , 2X, 

C  l‘IC=' ,F8.3,2X, 'PXA=' ,F8.3) 

82  CONTINUE 
C  PRINT  86,PXA,PYA 

C  86  FORMATC  '  ,  '  PXA=  '  ,  F8 . 3 , 2X,  '  PYA=  •,F8.3,/} 

C 

C  CALCULATE  THE  BASELINE  CORRECTION.  THERE  ARE  TWO  POSSIBLE 
C  CASES:  (A)  POSITIVE  SLOPING  BASELINE,  OR  (B)  NEGATIVE 
C  SLOPING  BASELINE. 

C 

C  CASE  (A)  -  POSITIVE  SLOPING  BASELINE  (BPl  <  LBP) 

C 

C  SKIP  TO  CASE  (B)  IF  BASELINE  SLOPE  IS  NEGATIVE 
C 

IF (BPl. GT. LBP)  GOTO  3000 
C 

C  OTHERWISE  PROCEED  WITH  THE  CORRECTION 
C 

DP1= (980+975) /2 

DP2=(957+955)/2 

YDIF=LBP-BP1 

XDIF=DP1-DP2 

XDIF2=DP1-PXA 

FAC1=XDIF2/XDIF 

FAC2=FAC1*YDIF 

FAC2=FAC2+BP1 

C  PRINT  87,  DP1,DP2,YDIF,XDIF,XDIF2,FAC1,FAC2 
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C  87  FORMAT{'  ' , ' DP1= ' , F8 . 3 , 2X, ' DP2= ‘ , F8 . 3 , 2X, ' YDIF= ' , F9 . 4 , 2X, 
C  l‘XDIF=' ,F9.4,2X, ■XDIF2=‘ ,F9.4,2X, /, •FACl=' ,F9.4,2X, 'FAC2=' , 
C  2F9.4,/) 

GOTO  3500 

CASE  (B)  -  NEGATIVE  SLOPING  BASELINE  (BPl  >  LBP) 

3000  CONTINUE 

DPl=(980+975) /2 
DP2=(957+955) /2 
YDIF=BP1-LBP 
XDIF=DP1-DP2 
XDIF2=PXA-DP2 
FAC1=XDIF2/XDIF 
FAC2=FAC1*YDIF 
FAC2=FAC2+LBP 

PRINT  57,  DP1,DP2,YDIF,XDIF,XDIF2,FAC1,FAC2 
57  FORMAT ('  ' , ' DP1= ' , F8 . 3 , 2X, ’ DP2= ' , F8 . 3 , 2X, ‘ YDIF= ' , F9 . 4 , 2X, 

l‘XDIF=' ,F9.4,2X, •XDIF2=‘ ,F9.4,2X,/, •FAC1=’ ,F9.4,2X, ■FAC2=' , 
2F9.4, /) 

3500  CONTINUE 

APPLY  THE  CORRECTION  TO  THE  ABSORBANCE  VALUE  FROM  PPK 
CABS=PYA-FAC2 

PRINT  OUT  CORRECTED  ABSORBANCE  VALUE 
PRINT  88,  CABS 

88  FORMAT (35 ' PEAK  ABS ( NH3 ,  967CM-1)=  ’,F6.3,/, 
135( ■ -'  ) ,/) 

END  THE  SUBROUTINE 

RETURN 
END 


[NOTE:  this  program  was  compiled  and  linked  as  a  subroutine  of 
BLC003.ASC.  See  Appendix  F  for  the  applicable  batch  file 
listing. ] 
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APPENDIX  J 


SOFTWARE  USTING  FOR  FORTRAN  PROGRAM  USED  TO 
CALCULATE  THE  BASELINE-CORRECTED  ABSORBANCE 
VALUE  FOR  WATER  VAPOR  AT  1700  CM-1 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c  c 

C  SUBROUTINE  H20 ( Y, FXAX, CABS)  C 
C  C 
C  CALCULATES  THE  BASELINE  BY  TAKING  THE  AVERAGE  OF  POINTS  C 
C  ON  ONE  SIDE  OF  THE  ANALYTICAL  PEAK  (1703  -  1702  CM-1)  FOR  THE  C 
C  BEGINNING  POINT.  THEN  TAKING  THE  AVERAGE  OF  POINTS  ON  C 
C  THE  OTHER  SIDE  OF  THE  ANALYTICAL  PEAK  (1694  -  1691  CM-1)  FOR  C 
C  THE  ENDING  POINT.  A  LINE  CONNNECTING  THESE  TWO  POINTS  C 
C  FORMS  THE  BASELINE.  THE  ABSORBANCE  VALUE  AT  THE  C 
C  ANALYTICAL  PEAK  (1700  CM-1)  IS  THEN  CORRECTED  TO  THIS  C 
C  MEASURED  BASELINE.  C 
C  C 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  H20 (Y, FXAX, CABS) 

REAL  Y (22528) , BPl , LBP, PXA, PYA, CABS ,XDIF, XDIF2 , YDIF, 
1FAC1,FAC2,EP,SP, IC 
INTEGER  COUNT 


DEFINE  THE  BASELINE  POINTS  FOR  THE  WATER  ANALYTICAL  PEAK 

IPT1=1703/FXAX 

IPT2=1702/FXAX 

IPT3=1694/FXAX 

IPT4=1691/FXAX 

PRINT  35,  IPT1,IPT2,IPT3,IPT4 

35  FORMAT (•  ' , ■IPT1=- ,I4,2X, ’IPT2=’ ,I4,2X, 'IPT3=' ,I4,2X, 
l'IPT4=* ,14, /) 

AVERAGE  THE  POINTS  FOR  THE  1ST  BASELINE  VALUE 

SP  =  0 
BP1=  0 
COUNT  =  0 
IFIRST=IPT1+1 
ILAST  =IPT2 

NOW  CALCULATE  FIRST  BASELINE  POINT 
PRINT  36,  IFIRST, ILAST 

36  FORMAT (•  • , ’IFIRST=' ,I4,2X, 'ILAST=’ , 14, /) 

DO  70  1= ILAST, IFIRST 
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SP=SP+Y{I+1) 

C0UNT=C0UNT+1 

CALCULATE  WAVENUMBER  VALUES  FOR  PRINTOUT 
WN={I) *FXAX 

PRINT  37,  WN,Y(I+1) ,SP. COUNT 

37  FORMAT (•  • , ' WN= ' , F8 . 3 , 2X, * Y (I) = ‘ , F8 . 3 , 2X, • SP= • , F8 . 3 , 

12X, ’COUNTS' ,16) 

70  CONTINUE 

BPl=SP/COUNT 

AVERAGE  THE  POINTS  FOR  THE  2ND  BASELINE  VALUE 

EP  =  0 
LBP  =  0 
COUNT  =  0 
IFIRST=IPT3+1 
ILAST  =IPT4 

NOW  CALCULATE  THE  SECOND  BASELINE  POINT 

DO  80  I=ILAST, IFIRST 
EP=EP+Y(I+1) 

COUNT=COUNT+l 

CALCULATE  WAVENUMBER  VALUES  FOR  PRINTOUT 

WN= ( I ) *FXAX 
PRINT  140 
C140  FORMAT  (  '  '  ) 

C  PRINT  137,  WN, Y(I+1) ,SP, COUNT 

C137  FORMAT ('  ' , ' WN= ' , F8 . 3 , 2X, ' Y ( I) = ' , F8 . 3 , 2X, ' SP= ' , F8 . 3 , 

C  12X,  'COUNTr:'  ,16) 

80  CONTINUE 

LBP=EP/COUNT 

C 

C  PRINT  OUT  THE  BASELINE  DETERMINING  POINTS 
C 

C  PRINT  85,  BP1,LBP 

C  85  FORMATC  ■,'BP1=  '  ,  F9 . 4 , 2X,  ‘  LBP=  ',F9.4,/) 

C 

C  DETERMINE  THE  X,Y  VALUES  (CM-1  AND  ABS.)  FOR  THE 
C  ANALYTICAL  PEAK  (1700  CM-1)  BY  FINDING  THE  MAXIMUM  Y  VALUE 
C  IN  THE  INTERVAL  FOR  THIS  PEAK  WHICH  IS:  1702  CM-1  TO  1699 
C  CM-1  (OR  IN  DATA  POINT  VALUES:  3530  TO  3523). 

C 

PXA=0 

PYA=0 

DO  82  1=3523,3530 

IF  (Y(I) .GT.Y(I-l) )  THEN 
PYA=Y(I) 

IC=I-1 

PXA=IC*FXAX 
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ENDIF 

C  PRINT  299, I, Y(I) , PYA, IC, PXA 

C  299  FORMATC  '  ,  '  1= ',14 , 2X,  *  Y=  '  ,  F8 . 3 , 2X,  '  PYA=  '  ,  F8 . 3 , 2X, 

C  l'IC=' ,F8.3,2X, ’PXA=' ,F8.3) 

82  CONTINUE 
C  PRINT  86, PXA, PYA 

C  86  FORMAT  (  '  '  ,  •  PXA=:  '  ,  F8 . 3 , 2X,  ‘  PYA=  ’  ,  F8 . 3  ,  /  ) 

C 

C  CALCULATE  THE  BASELINE  CORRECTION.  THERE  ARE  TWO  POSSIBLE 
C  CASES:  (A)  POSITIVE  SLOPING  BASELINE,  OR  (B)  NEGATIVE 

C  SLOPING  BASELINE. 

C 

C  CASE  (A)  -  POSITIVE  SLOPING  BASELINE  (BPl  <  LBP) 

C 

C  SKIP  TO  CASE  (B)  IF  BASELINE  SLOPE  IS  NEGATIVE 
C 

IF (BPl. GT. LBP)  GOTO  3000 
C 

C  OTHERWISE  PROCEED  WITH  THE  CORRECTION 
C 

DP1=(1703+1702) /2 

DP2= (1694+1691) /2 

YDIF=LBP-BP1 

XDIF=DP1-DP2 

XDIF2=DP1-PXA 

FAC1=XDIF2/XDIF 

FAC2=FAC1*YDIF 

FAC2=FAC2+BP1 

C  PRINT  87,  DP1,DP2,YDIF,XDIF,XDIF2,FAC1,FAC2 

C  87  FORMATC  '  ,  '  DPl=  •  ,  F8 . 3 , 2X,  '  DP2=  ’  ,  F8 . 3 , 2X,  '  YDIF=  ’  ,  F9 . 4 , 2X, 
C  l'XDIF=' ,F9.4,2X, • XDIF2= * , F9 . 4 , 2X, / , •FACl=' ,F9.4,2X, 'FAC2=' , 

C  2F9.4,/) 

GOTO  3500 
C 

C  CASE  (B)  -  NEGATIVE  SLOPING  BASELINE  (BPl  >  LBP) 

C 

3000  CONTINUE 

DP1= (1703+1702) /2 

DP2=(1694+1691)/2 

YDIF=BP1-LBP 

XDIF=DP1-DP2 

XDIF2=PXA-DP2 

FAC1=XDIF2/XDIF 

FAC2=FAC1*YDIF 

FAC2=FAC2+LBP 

C  PRINT  57,  DP1,DP2,YDIF,XDIF,XDIF2,FAC1,FAC2 

C  57  FORMATC  '  ,  '  DP1=  '  ,  F8 . 3 , 2X,  '  DP2=  ’  ,  F8 . 3 , 2X,  '  YDIF=  '  ,  F9 . 4 , 2X, 
C  l'XDIF=' ,F9.4,2X, ' XDIF2= ' , F9 . 4 , 2X, / , ’FAC1=' ,F9.4,2X, •FAC2=' , 
C  2F9.4,/) 

3500  CONTINUE 
C 

C  APPLY  THE  CORRECTION  TO  THE  ABSORBANCE  VALUE  FROM  PPK 
C 

CABS=PYA-FAC2 


no 


noooooooo 


PRINT  OUT  CORRECTED  ABSORBANCE  VALUE 
PRINT  88,  CABS 

88  FORMAT ('  • , ' CABS= ' , F4 . 3 , / ) 


END  THE  SUBROUTINE 

RETURN 
END 

[NOTE:  this  program  was  compiled  and  linked  as  a  subroutine  of 
BLC003.ASC.  See  Appendix  F  for  the  applicable  batch  file 
listing. ] 
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APPENDIX  K 


LISTING  OF  ALL  WATER  CALIBRATION  RUNS  SHOWING  BOTH  VAPOR 
AND  LIQUID  SAMPLES.  FOR  LIQUID  SAMPLES,  ABSORBANCE  AVERAGES 
AND  NORMALIZATION  RESULTS  ARE  SHOWN  ALONG  WITH  TOTAL 
ELAPSED  TIME  FROM  SAMPLE  INJECTION. 


DATE  SAMPLE 


um 


WATER 

PEAK  1  PEAK  2 


RSdI 


CH4  PEAK  1  PEAK  2|  DESCRIPTION 

ab«  ' 


normalized  to 
CH4s  0.800 


25-JUI-89 


15.0TorrH2O 
(in  2-liter  bulb) 


25-Jul-89 


1 5.0  Torr  1-120 
(in  2-iiter  bulb) 


24-JUI-89 


10.0  Torr  H20 
(in  2-liter  bulb) 


25-JUI-89 


10.0  Torr  H20 
(in  2-liter  bulb) 


25-Jul-89 


5.0  Torr  H20 
(in  2-liter  bulb) 


26-Jul-89 


0.828  (data  invalid 
FTIR  purge  off) 


5.0  Torr  H20 
(in  2-liter  bulb) 


5.0  TORR 
(in  2-liter  bulb) 


26-Jul-89 

1 

1 

0.029 

0.026 

2 

0.029 

0.025 

3 

0.031 

0.025 

4 

0.032 

0.026 

1.0  Torr  H20 
(in  2-liter  bub) 


DATE  ISAMPLEIRUNI  WATER  TIME  CH4  PEAK  1  PEAK  2  DESCRIPTION 

I  PEAK  1  PEAK  2  (hrs)  ab>  aw  ave 


(normalized  to 
CH4=  0.800) 


27-JUI-89 

4 

1 

2 

3 

4 

0.105 

0.108 

0.108 

0.111 

0.099 

0.102 

0.102 

0.105 

0.828 

1.0Ton'H20 
(in  2-ttter  bulb) 

28-Jul-89 

1 

1 

0.117 

0.117 

0.828 

8.0  Torr  H20 

2 

0.117 

0.117 

(in  2-liter  bulb) 

3 

0.117 

0.117 

4 

0.117 

0.117 

31-JUI-89 

1 

1 

0.390 

0.360 

0.804 

20  ul  1-120 

2 

0.384 

0.354 

(in  760  Torr  helium) 

3 

0.384 

0.360 

0.386 

0.358 

0.384 

0.356 

31-JUI-89 

2 

1 

0.408 

0.378 

0.780 

20  ul  H20 

2 

0.402 

0.378 

(in  760  Torr  heiium) 

3 

0.408 

0.378 

4 

0.402 

0.378 

0.404 

0.378 

0.414 

0.388 

31-JUI<89 

1 

1 

0.192 

0.186 

ails 

5UIH20 

2 

0.192 

0.180 

(in  600  Torr  helium) 

3 

0.192 

0.180 

4 

0.192 

0.186 

0.192 

0.182 

0.184 

0.174 

1  •Aug-89 

1 

1 

0.240 

0.228 

0.864 

above  run  with 

2 

0.234 

0.228 

helium  to  760  Torr 

3 

0.240 

0.228 

4 

0.240 

0.228 

0.238 

0.228 

0.220 

0.211 

1 -Aug-89 

1 

1 

0.294 

0.276 

0.828 

above  run  after 

2 

0.294 

0.282 

sitting  overnight 

3 

0.300 

0.276 

(ref.  file  #58) 

4 

0.294 

0.276 

0.296 

0.278 

0.286 

0.269 

1 -Aug-89 

1 

1 

0.294 

0.270 

0.876 

above  run  after 

2 

0.294 

0.278 

sitting  overnight 

3 

0.294 

0.276 

(ref.  file  #84) 

4 

0.294 

0.276 

0.294 

0.276 

0.268 

0.252 

1- Aug-89 

2 

1 

0.162 

0.159 

0.792 

5UIH20 

2 

0.165 

0.159 

(in  600  Torr  helium) 

3 

0.165 

0.159 

4 

0.165 

0.162 

0.165 

0.160 

0.167 

0.162 

1 -Aug-89 

2 

1 

0.168 

0.165 

0.792 

above  run  after 

2 

0.166 

0.165 

90  min 
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DATE  ISAMPLEIRUNI  WATER 

PEAK  1  PEAK  2 


(normalized  to 
CH4s  0.800) 


1-Aug-89  2 


above  run  with 
helium  to  760  Torr 
after  30  min 


1-Aug-88  2 


above  run  after 
3  hrs 


2-Aug-89  2 


2-Aug-89  3 


0.264 

0.264 

0.264 

0.270 

0.266 


above  run  after 
sitting  overnight 


5ulH20 

(in  760  Torr  heium) 


(avg-a) 
3-Aug-88  3 


above  run  after 
3  hrs 


(avg's) 
3<Aug-89  3 


above  run  after 
sitting  overnight 


20.599 


i 

1 

0.117 

6.120 

. 

0.828 

1  ulH20 

2 

0.120 

0.123 

On  760  Torr  helium) 

3 

0.120 

0.120 

4 

0.123 

0.123 

(avg-a) 

0.121 

0.122 

1.236 

0.117 

0.118 

1 

1 

0.147 

0.147 

0.820 

above  run  after 

2 

0.147 

0.147 

3  hrs 

3 

0.150 

0.150 

4 

0.153 

0.153 

(•vg-a) 

0.150 

0.150 

5.756 

0.146 

0.146 

1 

1 

0.234 

0.222 

0.828 

above  run  after 

1  DATE  ISAMPLEIRUNI  WATER 

CH4 

PEAK  1 

PEAK  2 

DESCRIPTION! 

IpEAK  1  PEAK  2 

nnsi 

aba 

ave 

ave 

(normal 

ized  to 

CH4=  0.800) 


(avg’s) 

2 

3 

4 

0.226 

0.228 

0.228 

0.228 

0.222 

0.222 

0.222 

0.222 

22.262 

0.220 

0.214 

sitting  overnight 

4-Aug-89  1 

1 

0.177 

0.162 

0.816 

5ulH20 

2 

0.177 

0.162 

(in  760  Torr  helium) 

3 

0.177 

0.159 

4 

0.174 

0.162 

(avg's) 

0.176 

0.161 

1.261 

0.173 

0.158 

4-Aug-89  1 

1 

0.171 

0.159 

0.816 

above  run  after 

2 

0.174 

0.159 

3  hrs 

3 

0.174 

0.162 

4 

0.174 

0.162 

(avg's) 

0.174 

0.161 

3.739 

0.171 

0.158 

5-Aug-89  1 

1 

0.225 

0.204 

0.828 

above  run  after 

2 

0.228 

0.210 

sitting  overnight 

3 

0.228 

0.210 

4 

0.234 

0.204 

(avg's) 

0.230 

0.208 

22.897 

0.222 

0.201 

6*Aug-89  1 

1 

0.300 

0.264 

0.828 

above  run  after 

2 

0.294 

0.264 

48  hrs 

3 

0.300 

0.264 

4 

0.300 

0.264 

(avg's) 

0.298 

0.264 

48.938 

0.288 

0.255 

7-Aug-88  1 

1 

0.336 

0.300 

0.828 

above  run  after 

2 

0.336 

0.300 

72  hrs 

3 

0.336 

0.300 

4 

0.336 

0.306 

(avg's) 

0.336 

0.302 

66.241 

0.325 

0.292 

7-Aug-69  1 

1 

0.342 

0.312 

0.828 

above  run  after 

2 

0.342 

0.306 

78  hrs 

3 

0.348 

0.312 

4 

0.342 

0.306 

(avg's) 

0.344 

0.308 

70.288 

0.332 

0.298 

8-Aug-89  1 

1 

0.378 

0.342 

0.828 

above  run  after 

2 

0.378 

0.348 

96  hrs 

3 

0.378 

0.348 

4 

0.378 

0.348 

(avg's) 

0.378 

0.348 

90.010 

0.365 

0.336 

8-Aug-89  1 

1 

0.060 

0.060 

— 

760  Torr  hefium 

2 

0.065 

0.063 

3 

0.063 

0.065 

4 

0.066 

0.065 

(avg's) 

0.065 

0.064 

0.078 
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1  DATE  iSAMPLEIRUNj 

WATER  TIME  CH4  PEAK  1  PEAK  2  DESCRIPTION! 

PEAK  1  PEAK  2  (hrs)  abs  ave  ave 

(norma  izsd  to 

CH4s  0.800) 

8-Aug*89  1  1 

2 

0.078  0.077  —  above  run  after 

0.075  0.077  3  hrs 

3 

0.075  0.074 

4 

0.075  0.074 

(avg's) 

0.075  0.075  3.097 

9-Aug-89  1  1 

2 

0.126  0.123  —  above  run  after 

0.129  0.126  sitting  overnight 

3 

0.126  0.126 

4 

0.126  0.126 

(avg‘8) 

0.127  0.126  21.471 

9-Aug-89  1  1 

2 

0.141  0.138  —  above  run  after 

0.141  0.138  27  hrs 

3 

0.141  0.138 

4 

(avg’s) 

0.141  0.138 

0.141  0.138  26.789 

10-Aug-89  1  1 

2 

0.174  0.185  —  above  run  after 

0.174  0.166  45  hrs 

3 

0.174  0.168 

4 

0.174  0.165 

2 

0.174  0.167  45.163 

W ''  ' '  '  ; ,  ' ' 

0.138  0.138  2ulH20 

0.141  0.138  (in  760  Torr  helium) 

3 

0.138  0.138 

4 

0.141  0.141 

(avg’s) 

0.140  0.139  1.114 

10-Aug-89  2  1 

2 

0.144  0.144  above  run  after 

0.153  0.147  3  hrs 

3 

0.150  0.150 

4 

0.153  0.150 

(•vg’s) 

0.152  0.149  3.700 

11-Au9^  1  1 

2 

0.186  0.180  0.696  above  run  after 

0.192  0.186  sitting  overnight 

3 

0.192  0.186 

4 

0.189  0.186 

2 

0.191  0.186  17.7W^  0.220  0.214^ 

OilM  0.138  '  0.8(i  2irtH20 

0.138  0.141  (in  760  Torr  heium) 

3 

0.138  0.141 

4 

(avg’s) 

0.138  0.141 

0.138  0.141  1.167  0.137  0.140 

11-Aug-88  2  1 

2 

0.139  0.141  0.794  above  run  after 

0.139  0.141  0.780  4  hrs 

3 

0.138  0.141  0.784 

4 

(avg’s) 

0.142  0.143  0.780 

0.140  0.142  4.114  0.781  0.141  0.143 
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WAl 

ER 

PEAK  2 

mSBi 

CH4 

aba 

PEAK 

ava 

1  PEAK  2 

DESCRIPTION! 

IPEAK  1 

ave 

(normalized  to 
CH4s  0.800) 

15-Aug-89  1 

1 

0.343 

0.317 

0.777 

above  run  after 

2 

0.345 

0.321 

100  hrs 

3 

0.343 

0.319 

4 

0.344 

0.323 

(avg's) 

0.344 

0.321 

100.250 

0.354 

0.331 

16-Aug-89  1 

1 

0.367 

0.340 

0.787 

above  run  after 

2 

0.368 

0.341 

0.767 

116  hrs 

3 

0.369 

0.342 

0.777 

4 

0.363 

0.341 

0.771 

(avg's) 

0.367 

0.341 

116.624 

0.772 

0.380 

0.354 

16-Aug-89  2 

1 

0.152 

0.140 

0.783 

1  ulH20 

2 

0.146 

0.141 

0.781 

(in  760  Torr  helium) 

3 

0.143 

0.138 

0.781 

4 

0.143 

0.136 

0.779 

(avg's) 

0.144 

0.138 

1.340 

0.780 

0.148 

0.142 

16-Aug-89  2 

1 

0.142 

0.135 

0.811 

above  run  after 

2 

0.142 

0.137 

0.781 

4  hrs 

3 

0.143 

0.136 

0.771 

4 

0.144 

0.136 

0.779 

(avg's) 

0.143 

0.136 

4.164 

0.777 

0.147 

0.140 

17- Aug-89  1 

1 

0.179 

0.169 

0.770 

above  run  after 

2 

0.181 

0.171 

0.774 

18  hrs 

3 

0.181 

0.170 

0.774 

4 

0.182 

0.172 

0.772 

. 

0.181 

0.171 

17.526 

0.773 

0.188 

0.177 

. . 

i7-Aug-89  2 

i 

0.141 

0.140 

0.756 

1 

uiH^ 

2 

0.141 

0.141 

0.756 

(in  760  Torr  helium) 

3 

0.140 

0.140 

0.754 

4 

0.136 

0.136 

0.758 

(avg's) 

0.139 

0.139 

1.346 

0.756 

0.147 

0.147 

17-Aug-89  2 

1 

0.145 

0.145 

0.788 

above  run  after 

2 

0.147 

0.145 

0.785 

5  hrs 

3 

0.144 

0.143 

0.796 

4 

0.144 

0.140 

0.788 

(avg's) 

0.146 

0.143 

4.538 

0.789 

0.147 

0.145 

17-Aug-89  2 

1 

0.178 

0.174 

0.794 

above  run  after 

2 

0.178 

0.173 

0.794 

18  hrs 

3 

0.178 

0.175 

0.794 

4 

0.177 

0.176 

0.794 

. (aytfa) . 

0.178 

0.175 

18.106 

0.794 

0.179 

0.176 

18-Aug-89  1 

1 

6.iii 

0.280 

0.790 

10UIH2O 

2 

0.2K 

0.278 

0.785 

(in  760  Torr  heium) 

3 

0.295 

0.277 

0.783 

4 

0.293 

0.277 

0.779 

(avg's) 

0.293 

0.277 

1.857 

0.782 

0.300 

0.284 
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1  DATE  isampleIrunI  wiSi 

PER 

PEAK  2 

■uEBI 

CH4 

abs 

PEAK 

ave 

1  PEAK  2j 
ave 

1PEAK  1 

1  DESCRIPTION! 

(norm 

CH4 

a  ized  to 
s  0.800) 

19-Aug-89  1 

1 

0.322 

0.305 

0.776 

above  run  after 

2 

0.313 

0.305 

0.790 

5  hrs 

3 

0.320 

0.311 

0.778 

4 

0.322 

0.310 

0.776 

(avg's) 

0.318 

0.309 

4.845 

0.781 

0.326 

0.316 

20-Aug-89  1 

1 

0.351 

0.333 

0.778 

above  run  after 

2 

0.354 

0.337 

0.774 

30  hrs 

3 

0.355 

0.337 

0.774 

4 

0.352 

0.333 

0.776 

(avg’s) 

0.354 

0.336 

29.963 

0.775 

0.365 

0.347 

21 -Aug-89  1 

1 

0.367 

0.344 

0.790 

above  run  after 

2 

0.365 

0.342 

0.781 

41  hrs 

3 

0.367 

0.346 

0.777 

4 

0.368 

0.343 

0.794 

. (aya'?).. 

.  ...0.367 

0.344 

41.481., 

0.784 

0.374 

0.351 

■2i-Aug^M . 2'‘ 

. i” 

■■■O.M2'' 

■  0.276  ■■ 

■'asoji'' 

Toiiil^ . 

2 

0.291 

0.275 

0.802 

(In  760  Torr  helium) 

3 

0.290 

0.274 

0.802 

4 

0.289 

0.275 

0.804 

(avg’s) 

0.290 

0.275 

1.639 

0.803 

0.289 

0.274 

21 -Aug-89  2 

1 

0.295 

0.278 

0.724 

above  run  after 

2 

0.296 

0.279 

0.726 

7  hrs 

3 

0.293 

0.281 

0.724 

4 

0.295 

0.274 

0.718 

(avg's) 

0.295 

0.278 

6.995 

0.723 

0.326 

0.308 

22-Aug-89  1 

1 

0.315 

0.297 

0.728 

above  run  after 

2 

0.313 

0.297 

0.727 

21  hrs 

3 

0.314 

0.295 

0.728 

4 

0.315 

0.298 

0.726 

. (avg’s)... 

0.297 

.21,222. 

0.727 

0.346 

0.326 

i^-Aug-ra  2 

i 

0.062 

6.6^0 

0.735 

d^heiHjm-fCH4 

2 

0.065 

0.071 

0.737 

(760  Torr) 

3 

0.065 

0.071 

0.735 

4 

0.061 

0.072 

0.735 

(avg’s) 

0.064 

0.071 

1.958 

0.736 

0.069 

0.078 

22-Aug-e9  2 

1 

0.084 

0.088 

0.779 

above  run  after 

2 

0.082 

0.088 

0.783 

5  hrs 

3 

0.084 

0.090 

0.777 

4 

0.084 

0.090 

0.774 

(avg’s) 

0.083 

0.089 

5.254 

0.778 

0.086 

0.092 

23-AU9-89  1 

1 

0.134 

0.138 

0.800 

above  run  after 

2 

0.135 

0.139 

0.800 

20  hrs 

3 

0.136 

0.139 

0.798 

4 

0.136 

0.140 

0.798 

(avtfs) 

0.136 

O.IIW 

19.666 

0.799 

0.136 

0.140 
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WAl 

rER 

PEAK  2 

■mi 

CH4 

aba 

PEAK  1 
ave 

PEAK  2 
ave 

IPEAK  1 

(norma 

CH4= 

ized  to 
0.800) 

23-Aug-89  1 

1 

0.159 

0.158 

0.728 

above  run  after 

2 

0.158 

0.157 

0.718 

30  hrs 

3 

0.159 

0.158 

0.722 

4 

0.160 

0.160 

0.728 

(avg's) 

0.159 

0.158 

29.567 

0.723 

0.176 

0.175 

24-Aug-89  1 

1 

0.193 

0.193 

0.783 

above  run  after 

2 

0.193 

0.193 

0.794 

44  hrs 

3 

0.195 

0.192 

0.792 

4 

0.195 

0.195 

0.788 

. (ayg!?)... 

0.194 

0.193 

43.933 

0.791 

0.196 

0.195 

29-Aug-89  1 

1 

0.083 

0.081 

0.612 

-.•.•.•.•.•.v.v 

dry  helium  +  CH4 

2 

0.084 

0.080 

0.614 

(760  Torr) 

3 

0.088 

0.086 

0.612 

4 

0.083 

0.077 

0.600 

(avg's) 

0.085 

0.081 

1.482 

0.609 

0.112 

0.106 

29-Aug-89  1 

1 

0.098 

0.090 

0.597 

above  run  after 

2 

0.095 

0.090 

0.587 

9  hrs 

3 

0.097 

0.088 

0.576 

4 

0.098 

0.091 

0.571 

(avg's) 

0.097 

0.090 

8.861 

0.578 

0.134 

0.124 

30<Aug-89  1 

1 

0.119 

0.109 

0.600 

above  run  after 

2 

0.118 

0.110 

0.600 

23  hrs 

3 

0.121 

0.109 

0.600 

4 

0.119 

0.108 

0.600 

(avg's) 

0.119 

0.109 

22.734 

0.600 

0.159 

0.145 

30-Aug-89  1 

1 

0.133 

0.120 

0.597 

above  run  after 

2 

0.133 

0.121 

0.594 

32  hrs 

3 

0.132 

0.123 

0.563 

4 

0.132 

0.123 

0.576 

(avg’s) 

0.132 

0.122 

32.358 

0.578 

0.183 

0.169 

31-Aug-89  1 

1 

0.159 

0.143 

0.598 

above  run  after 

2 

0.163 

0.151 

0.592 

47  hrs 

3 

0.163 

0.145 

0.597 

4 

0.159 

0.147 

0.598 

(avg's) 

0.162 

0.148 

46.607 

0.596 

0.217 

0.198 

31-Aug-a8  1 

1 

0.175 

0.156 

0.572 

above  run  after 

2 

0.173 

0.155 

0.570 

57  hrs 

3 

0.171 

0.152 

0.558 

4 

0.167 

0.156 

0.548 

(avg's) 

0.170 

0.154 

56.729 

0.559 

0.244 

0.221 

1-Sap-89  1 

1 

0.194 

0.174 

0.587 

above  run  after 

2 

0.194 

0.174 

0.587 

71  hrs 

3 

0.193 

0.176 

0.581 

4 

0.196 

0.176 

0.586 

(avg's) 

0.194 

0.175 

70.735 

0.585 

0.286 

0.240 
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1  DATE  ISAMPLEIRUN 

WATER 

PEAK  1  PEAK  2 

nnSi 

CH4 

abs 

PEAK  1 
ave 

PEAK  2 
ave 

DESCRIPTION! 

I 

(norma 

CH4= 

ized  to 
0.800) 

1-S«p-89  1 

1 

0.206 

0.190 

0.586 

above  run  after 

2 

0.206 

0.189 

0.587 

81  hrs 

3 

0.204 

0.184 

0.560 

4 

0.205 

0.186 

0.568 

(avg's) 

0.205 

0.186 

80.946 

0.572 

0.287 

0.261 

5-Sep-89  1 

1 

0.300 

0.268 

0.582 

above  run  after 

2 

0.297 

0.264 

0.579 

167  hrs 

3 

0.299 

0.269 

0.576 

4 

0.301 

0.272 

0.578 

(avg’s) 

0.299 

0.268 

166.879 

0.578 

0.414 

0.372 

8-Sep-89  1 

1 

0.462 

0.454 

0.718 

above  run  after 

2 

0.429 

0.402 

0.644 

239  hrs 

3 

0.407 

0.381 

0.618 

4 

0.403 

0.371 

0.595 

(avg's) 

0.413 

0.385 

238.743 

0.619 

0.534 

0.497 
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APPENDIX  L 


PROGRAM  TO  CALCULATE  ABSORBANCE  VALUES  AS  A  FUNCTION 
OF  FIXED  TIME  INTERVALS  (WRITTEN  IN  GWB ASIC) 


10  REM  LPRINT  "  WATER  CALIBRATION  DATA" 

20  REM  LPRINT  "  _ " 

30  DIM  A(50) ,B(50) ,C{50) ,D(50) ,E(50) ,H(50) ,P(5) 

40  P(1)=0 
42  P(2)=1.4 
44  P(3)=3.5 
46  P(4)=7 
50  REM  LPRINT 
60  K=1 

70  REM  LPRINT  "mtime  0.0  ppm  1.55  ppm  5.5  ppm  12.8  ppm  25.5ppm'* 
80  REM  LPRINT  "=====  =======  =======  =======  =======  =======" 

90  FOR  1=0  TO  100  STEP  5 
100  H(K)=I 

110  A(K)=-4.27562E-05*I"2  +  5 . 02122E-03 *I  +  .0593525 

120  B(K)=3.38794E-03*I  +  .131176 

130  C(K)=1,95744E-03*I  +  .156582 

140  D(K)=2.20969E-03*I  +  .175349 

150  E(K)=1.88885E-03*I  +  .303148 

160  REM  LPRINT  USING  "####.####" ;H (K) , A (K) , B (K) , C (K) , D (K) , E (K) 
170  K=K+1 
180  NEXT  I 

190  OPEN  "0" , #1, "H20DATA" 

200  FOR  J=1  TO  21 

210  PRINT#1,USING"####.####";P(1) ,H(J) ,A(J) 

220  NEXT  J 

230  FOR  J=1  TO  21 

240  PRINT#1,USING"####.####“;P(2) ,H(J) ,C(J) 

250  NEXT  J 

260  FOR  J=1  TO  21 

270  PRINT#1, USING "####.####" ; P (3 ) , H ( J) , D ( J) 

280  NEXT  J 

290  FOR  J=1  TO  21 

300  PRINT#1, USING"####. ####";P(4) ,H(J)  ,E(J) 

310  NEXT  J 
320  CLOSE# 1 
330  END 
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12.jan-90  ninl  Mack  iron  (19)  6  ml  20%  CA12JA90.PRN  HZ+humki  heliums^20%  024Mack  iron  plates  (beiore  run:  chambor  healed  to  35  deg  C  and  pumped  to  3E-S 

Torr  overnight,  then  relumed  to  20  deg  C  lor  this  iun| 

12,j«t-90  nm  2  Mack  iron  (19)  6  mi  20%  CB12JA90.PRN  HZ+humld  helum+20%  Oesbiack  iron  plates  (batore  nrn:  chamber  pumped  to  735  Torr ,  then  additional  HZ 

was  flushed  in  with  80%  helium  and  20%  oxygen] 
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SUMMARY  1 

RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD310 
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RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD315 
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SC27AG88.DAT  0.3400  0.1457  0.0352  0.0408  0.1729 

SC29AG88.0AT  0.3714  0.1406  0.0286  0.0341  0.2300 

SC30AG88.DAT  0.3697  0.1654  0.0296  0.0303  0.1692 


APPENDIX  N 
SUMMARY  3 
RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD350 
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APPENDIX  N 
SUMMARY  4 
RESULTS  FOR  NO  PLATES 
DATA  HLES  USING  MOD360 
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SUMMARY  5 

RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD361 
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APPENDIX  N 
SUMMARY  6 
RESULTS  FOR  NO  PLATES 
DATA  HLES  USING  MOD370 
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SUMMARY  7 
RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD375 
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APPENDIX  N 
SUMMARY  8 

RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD380 
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APPENDIX  N 
SUMMARY  9 
RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD385 


<0 


O 


<n\ 


a> 

m 


S  o 
d  d 


<0  CM 

m  m 

CM  o 

d  d 


o> 

00  00 
00  o 
d 


f'-OSCOflO^OOCMCM 

ooocoooawcM' 


a  a  eo 
o  o  o  o 


CM 


oooooooo 

OOiniAOOOCOCMUl 

■^^ncM->-t^h«c*j 

0'p-a>oooooor»Q 

f-ooinuS'tiAmw 

dddddddd 


C5CMOO«»-»-CMU5 

COO'«-00>t-U5CO 

-  -  o  <o 
cn  m 


•r-  r«-  5  fs.  w  5 
o  <o  «  CO  CO  CO 

dddddddd 


rs. 

CM 

CM 

o 

d 

2 

£5 

d 


2 


r-  r«.  CM  o  CM  00 
u)ooa><ocMoom 
Ulf-'t-T-COCMt-^ 

oooooooo 

dddddddd 


Ul  CM 

o  r- 
<o  m 

CO  Tf 


•*-  00  uj  r>.  a> 

0>  O  1-  CM  CO 

<o  5  CO  5  o 

•V  Tf 

dddddddd 


5 


h.  y- 
T-  CO 

Oi  o 

y-  Oi 

d 


SO  CM  O  O  00  O  U) 

r-  r«.  00  o  ®  d  TT 


OU)f-COCMQQOO 

COt^OOOOOO 

^^00^T”»”0 

SS88S535 

dddddddd 

Otf^ODlOUJCM^ 

T-t-COCOl^^^T- 

88885558 

dddddddd 

8£oS25^8858 

85588888 

dddddddd 


«  ?5  ®  8  5? 


®  5  L - - 

§855°8;: 

d  d  d  d  d  d 


1S!?8®'^ 


O)  CO 


55 

CO  CM 

T“  y" 

d  d 


85 

CM 


^  o  d  d  d  d  o' 

858882 

u)  u)  M  o  00 

1-;  CM  q  CM  CM 

^  d  ^  d  d 


o  o 

So 
O) 
y-  O) 
<0  IV 

d  d 


^  <  < 
Q  Q  o 

|83 

l<^ 

8  o  (o 

r-  CM  CM 

O  O  O 

(0  CO  CO 


K—  H  H  H  H  H  H 
<<<<<<< 
Q  o  a  o  a  o  o 


O  (3  <3  <5  <D  O  O 

<  <  <  ^  ^ 
CO  ^  ko  CO  <»  q 
CM  CM  CM  CM  CM  CM  n 

o  o  o  o  o  o  o 

CO  CO  CO  CO  CO  CO  CO 


(0 


o 


I 


« 


m 


111 


QUJCDOt- 
CO  CO  O  O  CO 


U) 

CO  _  _ 

CM  iv  g>  O) 

CM  00  o  a> 

CM  1-^  1-^  d 


85 


00  ^  u)  g>  00  q 
CM  V  CO  q  CM  o 
1-  lO  CO  O  1-  1- 


't  o>  ^ 
d  d  d 


CO  CO 

d  d  d 


S'!-  q  CM  o  00 

lO  to  ■ 

55  ‘ 


CO  CM  T- 

co  o  q  u) 

q  q  q  q 

U)  m  O  O  O  CO 

CM  O  O  |v  f-  CO 

CM  q  o  iv  CO  w 

0  0^000 
d  d  d  d  d  d 


00 

Iv 


Sy-  yf  o  <n 
T-  r«.  CO  lo 
o  ui  m  ■■ 
o>  a>  CM 


588 


o  m  iv 
lo  «  CO 


1-  CO  o 
o»-i- 
CM  to  a>  q  q  ^ 

CO  T-  00  O  00  CO 

d  d  d  d  d 

g»-  O  |v  O  CM 

lO  IV  CO  CM  CO 

in  o>  CM  CO  n 

00  n  a>  CM  u)  to 

d  d  d  1-^  d  d 


1-  o  CO  CO  to  m 
to  f-  0>  0>  to  CO 

5  8  5  §  o  8 

d  d  d  d  d  d 

|v  0  O  O  CO  00 
T-  3  T-  CT  CT  CM 
»  q  q  a>  ^  M 
^  3  o  iv  «  n 

d  d  d  d  d  d 


8  5 


CM 


85 

CO  1-  CM  q  ^  q 
CM  1-  ^  O  O  O 

d  d  d  d  d  d 


a>  q  CM 

CM  3  0 


«  q 

c»  n  3  ^ 

0  0  ^  rv  0  o 
ivOrt'tt-'*- 
d  d  CM  d  d  d 


888 

O  ■ 


o  o  o 

_  |V  5  CM 
rv-iorti- 
0  [v  o)  ‘R  ® 
3  O  |v  CM  T-  CM 


<  <  5 

Q  Q  Q 

sss 
s  I  < 

3  0  O 
T-  CM 

o  o  o 

CO  cn  CO 


:<  <  < 

q  o  o 

S3S 
a.  a  o 
<  <  < 
0  « "tf 
CM  CM  CM 
O  O  O 
CO  CO  (O 


135 


SC25AG88.DAT  5.1340  0.2222  0.1408  0.1890  0.0583  0.5306  0.8678  0.8259  0.0252  0.9046  0.3520  0.7739 

SC26AG88.DAT  1.0670  0.1461  0.0693  0.2478  0.0398  0.5207  0.9140  0.8831  0.0264  0.9253  0.4009  0.8920 

SC27AG88.DAT  1.7640  0.1715  0.0907  0.1994  0.0353  0.5307  0.9256  0.7921  0.0291  0.8425  0.3207  0.8686 

SC29AG88.DAT  1.2290  0.1568  0.0610  0.2223  0.0419  0.5615  0.9174  0.8629  0.0276  0.8803  0.3881  0.9089 

SC30AG88.DAT  1.6710  0.1828  0.0580  0.1524  0.0585  0.5857  0.9005  0.7989  0.0355  0.8235  0.3352  0.8135 


M 


O 


«| 


UJ 


h-  eg  lO 

m  00  00 

U)OOt- 
O^T- 

d  d  d  o  d  o  o' 

oof^^oor^uiT- 
CJ  <0  h.  hv  O)  00  ^ 

0>  ^  0>  0>  O)  o>  Ul 

0>  0>  O)  O)  O)  o>  o 

d  d  d  d  d  d  1-' 


00  o>  T- 
o)  m  CM 
CO  oj 
00 

d  d  d 


U)  CO  o 
CO  »-  CO 

as' 

d  d  d  o 


s 


§ 


gf-  lO 

U5  CO  O 

r>~  00  o  o  o 

CM  CO  ^  T-  ^  ^ 


(Ago 


o  r*-  ^  5  ui 

1-  (O  o  CO  o  o 

g  n  o  lO  ^  to  ‘ 


o  O  o  S  o  8 
d  d  d  d  d  d  d 


m  T-  CO  o) 

r>.  to 


s  s 


8 

8  3  o  8  8  8  :: 

d  d  d  d  d  d  d 

a  2  8  5  8  s  § 

5  Q  CM  4  CO  Q 

O  O  ^  ^  ^  o 

d  d  d  d  d  d  a 


3  S  S  S  ^ 


K  lO  OO  O)  00  8 

S  3  S  S  52 

d  d  d  d  d  d  d 


M  CO  O  CM  CO  to  00 

00  ^  CO  CO  CM  r** 

8  8  8  8  8  8  8 

d  d  d  d  d  d  d 


g  eo  eo 


o>  $  5  ^ 
8000080 
d  d  d  d  d  d  d 


3  ? 


CM  O  O 
T-  f  CM  h» 


^  8  $ 

0885888 

d  CM  d  d  d  d  d 


00 

a> 

CO 


Oi 

CO 

to 


a> 

CO 


a> 

CO 


h- 

o 


to 

r>- 

to 

o 


3 


CM 

r«- 

r>- 

CM 

d 


Si 

CO 


3 

d 


8  8  8  5  5? 

8^80008  ^ 
ddddddd~d 


o> 

r  I 


^  ^  ^  ^  ^  5 

Q  o  a  o  o  2  a 

1  I  m  1 1 

S  55  i  S  i  I  - 

^  ^  0 

a  o  o  a  o 

2  s  2  z  s 


SCO  O  00  O  Q  Q 

e«.  r«-  o  00  o 

8  O  8  52  «  ~  8 

d  d  d  d  d  d  d 


oo^rotoco'.-'t- 
o>  CO  T-  r-  us  1-  00 

8  5  8  §  §  3 

d  d  d  d  d  d  d 


CO  ■•- 

1^  o 


8 


8 

3  8  8 


00  o> 

0>  CO 


Sus 
o> 

8  8 


0000000 


US 


1^ 

00 


g>  0  a>  ^  n 

55  «  o>  flo  , 

8  8  8  8  5:  ::  3 

d  d  d  d  d  d  d 


8  cm  CO 


^  o> 

00  _ 

w  r'"  1^  ^  o)  o 

^  ^  us  Tf  ^  to 

d  d  d  d  d  d  d 


Q 


3 


^  ^  ^5c 

q  q  q  q  q  q 

8  8  8  8  8  8 

>->->->->-> 

1  ^  i  i  ^  ^ 

d  N  M  CM  M  CO 

0  o  o  o  o  o 

2  2  2  2  2  2 


136 


MD01JN90.DAT  diverged 

MD04JN90.DAT  0.2054  0.0006  0.4630  0.5039  0.0126 


SUMMARY  12 
RESULTS  FOR  NO  PLATES 
DATA  HLES  USING  MOD315 
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APPENDIX  N 
SUMMARY  13 
RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD350 
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APPENDIX  N 
SUMMARY  14 
RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD360 
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SUMMARY  15 
RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD361 


<0 


W 


o 


n 

X 


I 

CL 


0) 


(O 

nI 

X 


(0 

a 

c 


lO 

CM 

8 

8 

lA 

•2 

© 

o 

3 

s 

m 

o 

8 

8 

8 

T“ 

CO 

o 

© 

at 

a> 

d 

d 

d 

d 

d 

d 

d 

d 

8 

8 

© 

© 

8 

8 

© 

3 

8 

8 

8 

8 

CM 

© 

8 

d 

d 

d 

d 

d 

d 

d 

d 

o>  ^  ^  O)  ^ 

<o  o)  a>  ^  00  <o 
-  <o  <o  ui  o> 

^ 

d  d  d  d  d 


U)  S 
d 


^I><OQ<O00t- 

00  K  u)  «  a>  <o 


f>.  »- 

(O  o 


o>o>r>. 
o> 


o  o  o  o  o  o  o 


8 


o 

CO 

a> 


a>  (o 
cvj  r>- 

S  o 


h.  «  rs. 

U)  «  o 

OJ  fx.  Ui 

a>  (O 
d  T-  t- 


oo 

CM 

d 


00 

at 

CO 

00 


o 

IS 


CM 


s 

u> 

d 


00 

■<» 

fx. 

CM 

d 


« 

§ 

d 


8 

d 


|X* 


8  3  8  f  8 


5<<<<<<5 

qoqqoQQ5 

s|||888  g 

^  w  w  eo  o 

q  Q  O  O 

1  a  a  2 


lU 

E 

I 


<0  S  ^  <6  C'i  CA  8 

rx  00  00  n  o>  CM 

5  8  52  ^  $2  S 

d  d  d  d  d  d 


^  g  CM  CO 


c5  d  ?  g  g 


2  5^85^ 

d  d  d  d  d  d 


hx  00  M  Q  ^ 

CO  T-  o  ©  5 

5  8  3  8  5 

d  d  d  d 


5  <  <  <  <  <  < 

q  q  q  q  q  q  q 

S  8  8  8  8  8  8 

£>>>->->■>- 

1  ^  i  i  ^  i 

q  i  S  S  S  S  Q 

a  a  a  a  a  a  a 


140 


MD01JN90.DAT  diverged 

MD04JN90.DAT  1.1657  0.3949  0.5349 


APPENDIX  N 
SUMMARY  16 
RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD370 
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M001JN90.DAT  diverged 

MD04JN90.DAT  0.1327  0.0001  4.5726 


APPENDIX  N 
SUMMARY  17 
RESULTS  FOR  NO  PLATES 
DATA  FILES  USING  MOD375 
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SUMMARY  18 
RESULTS  FOR  NO  PLATES 
DATA  RLES  USING  MOD380 
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APPENDIX  N 
SUMMARY  19 
RESULTS  FOR  NO  PLATES 
DATAFILES  USING  MOD385 
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M031MY90.DAT  2.4273  0.1661  0.4023  0.4526  0.3131  0.1419  1.2581  1.0123  0.0085  0.6679  0.2727  1.6555 

MD01JN90.DAT  diverged 

MD04JN90.DAT  0.4764  0.0641  0.2368  0.2329  0.0593  0.0490  1.1549  1.0185  0.0396  1.0658  0.8057  1.0882 


APPENDIX  O 
SUMMARY  1 
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RESULTS  FOR  TEFLON  COATED  ALUMINUM  PLATES 
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APPENDIX  O 
SUMMARY  5 

RESULTS  FOR  TEFLON  COATED  ALUMINUM  PLATES 
DATA  FILES  USING  MOD361 
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APPENDIX  O 
SUMMARY  6 

RESULTS  FOR  TEFLON  COATED  ALUMINUM  PLATES 
_ DATA  FILES  USING  MOD370 
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APPENDIX  O 
SUMMARY  7 

RESULTS  FOR  TEFLON  COATED  ALUMINUM  PLATES 
DATA  HLES  USING  MOD375 
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APPENDIX  O 
SUMMARY  8 

RESULTS  FOR  TEFLON  COATED  ALUMINUM  PLATES 
_ DATA  nLES  USING  MOD380 
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APPENDIX  O 
SUMMARY  9 

RESULTS  FOR  TEFLON  COATED  ALUMINUM  PLATES 
DATA  FILES  USING  MOD385 
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APPENDIX  P 
SUMMARY  1 

RESULTS  FOR  BLACK  IRON  PLATES 
DATA  HLES  USING  MOD310 
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CA16JA90.DAT  diverged 

CB16JA90.DAT  2.5488  0.4278  0.2375  5.1529  0.1312 
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CA12JA90.DAT  0.6908  0.7479  0.4661  0.0228  0.0065 

CB12JA90.DAT  0.6388  0.5991  0.5996  0.0263  0.0037 

CA16JA90.DAT  diverged 

CB16JA90.DAT  0.8118  0.6336  0.6729  0.0272  0.0011 


RESULTS  FOR  BLACK  IRON  PLATES 
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APPENDIX  Q 
SUMMARY  4 

RESULTS  FOR  CORRODED  ALUMINUM  PLATES 
DATA  FILES  USING  MOD360 
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APPENDIX  Q 
SUMMARY  5 

RESULTS  FOR  CORRODED  ALUMINUM  PLATES 
DATA  FILES  USING  MOD360 _ 
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SUMMARY  6 

RESULTS  FOR  CORRODED  ALUMINUM  PLATES 
_ DATA  nLES  USING  MOD370 _ 


a>m<ou)c\ju>mao«h>oo 

o>r'.t^CMOcg«u5or>>-<5-^ 

^^0^00>0>C\iCOC5-«-Cp'^ 

J*f^eNjr^o»o><c)^<p«5^3<2) 


^^»-^r*«o)Oco^®o>a 

coCMe\j^<o»-5eM«h«.CMg»r^ 

cNif^cNii-^eoeNii-^cjeNi^eNiesi 

^5O>00N.®t^^CMCJ00fl0 

^(ooT-c\ju)a>a>r^ncvja>a> 

M'rr^ing>mc\jcM'«a>CMevjcvi 

OT'^OT-eoeo^'^'^'^CM^-T- 

dddd'^ddddddd 


St^T-uj«^nouiOuio> 
r^'r-oo^^ooot^^uiin 
;r«<o^5<p<oev(oo^o)oor^ 
(nCNJCNiCNlpW^CNjCVlCgOOCNJCa 


cMt-T-uir^uif^nuioaco 

ooca^h'T-oodiOf^T-eM 

(gr«(0^c\jt-<ocacjcMQa>ui 

'^®i-;i-;U5pT-evj^«33^<0 

^■T^evii-^i-^eNieNieNicsiT-^cjevi 

mMoo^h>Qa>r>-cDO^ 
dOT-eMOi/)3a>^33a> 
d^Qa)dc\jaodr^u>i-o 
000T-0T-C4«^ujujr>» 

dddddddddddd 

|98IS85i§S88Si8 

“•dddddddddddd 

cua)T-^a>u)CMC0r^«a«m 
u  U2  Ka>M<ou)<Mm3mm 

«828::8;;3SgSS8 

3-dddddddddddT^ 


^oiuiiQMr^inMQaimQO 

M^rouiaor^r^dmcMT-di- 

'ROJW'^OCOt-O'^UJCMdQ 

Nr^tOf-OeMT-^CMCM^OO 

Zdddddddddddd 


^oac^ocpr^oioiouii- 

dddddddddf-dd 


Mo^oMcacMO^ 

©•T-CO^OW^COUJ 

pmmMiAihGOT-r^ 

3c«j^o33»-CT'^ 

•p^di-^dcgT^^'T^i-^ 


588885858808 

dddddddddddd 


lO'r-OO^U>T-T-U>evj 

^<oot-doeM^o>5 

asssssssssi 

dddddd'i-dd 


^iSS^8888i5^ 
§18  88^88888838 

d  ddddddddddd 


HOOOOOQOOO 

S3s<3!S!SIS!3S 

ooooouooo 


^  ^  ^ 

iii 

000 


oo^oo^CMi-i-iom 

„wdo>e5'“OQdrt 

as^sSssiss 

ddddddddd 


^  ^  5  ^  ^  ^ 

>4000000 
s  d  d  d  d  d  d 
u.  o  o>  a>  o>  a>  a> 
^  s  cc  cc  c  oc  cc 

^  ^  ^  s  ^  ^  ^ 

000000 


<  <  5 

q  q  q 

8  8  8 

QC  OC  CC 

^88 

000 


169 


CA29MR90.DAT  0.0662  0.0001  2.6479 

CB29MR90.DAT  0.0001  0.3085  1.5487 

CC29MR90.DAT  0.0001  0.3600  1.5377 


APPENDIX  Q 
SUMMARY  7 

RESULTS  FOR  CORRODED  ALUMINUM  PLATES 
_ DATA  FILES  USING  MOD375 _ 
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APPENDIX  Q 
SUMMARY  8 

RESULTS  FOR  CORRODED  ALUMINUM  PLATES 
_ DATA  RLES  USING  MOD380 
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RESULTS  FOR  PAINTED  ALUMINUM  PLATES 
DATA  FILES  USING  MOD310 
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RESULTS  FOR  PAINTFD  ALUMINUM  PLATES 
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APPENDIX  R 
SUMMARY  5 

RESULTS  FOR  PAINTED  ALUMINUM  PLATES 
_ DATA  HLES  USING  MOD361 
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RESULTS  FOR  PAINTED  ALUMINUM  PLATES 
_ DATA  FILES  USING  MOD370 
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RESULTS  FOR  PAINTED  ALUMINUM  PLATES 
DATA  HLES  USING  MOD375 
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RESULTS  FOR  PAINTED  ALUMINUM  PLATES 
_ DATA  HLES  USING  MOD385 
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APPENDIX  R 
SUMMARY  10 

RESULTS  FOR  PAINTED  ALUMINUM  PLATES 
DATA  HLES  USING  MOD390 


APPENDIX  S 


REPRESENTATIVE  MODEL  FITS  -  PLOTS  FOR  HYDRAZINE 
AND  AMMONIA  (SINGLE.  SELECTED  RUNS) 

The  following  figures  illustrate  the  best  fits  for  representative  data  sets  with  variation  on 
chamber  conditions  and  type  of  available  reactive  surface  sites.  The  models  which  yielded  the  best 
results  were  chosen  based  on  SOS  and  RMS  values.  Examples  of  fits  by  all  models  are  not 
shown.  Certain  models  consistantly  gave  poor  fits  and  were  never  able  to  give  the  "best"  fit  for 
any  of  the  data  sets. 


TIME  (hr) 

Figure  SI.  Model  (MOD361)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 
Conducted  on  18  i^r  90  (Dry  Helium,  no  Plates) 
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Figure  S2  Model  (MOD36 1)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 
Conducted  on  18  Apr  90  (Dry  Helium,  no  Plates) 
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TIME  (hr) 

Figure  S3.  Model  (MOD310)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 
Conducted  on  25  May  90  (80  Percent  Dry  Helium  and  20  Percent 
Oxygen,  No  Plates) 


Figure  S4.  Model  (MOD361)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 

Conducted  on  04  Jun  90  (80  Percent  Humid  Helium  and  20  Percent 
Oxygen,  No  Plates) 
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Figure  SS.  Model  (MOD370)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 

Conducted  on  16  Jan  90  (80  Percent  Humid  Helium  and  20  Percent 
Oxygen,  with  19  Black  Iron  Plates) 
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Figure  S6.  Model  (MOD370)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 
Conducted  on  20  Jul  90  (80  Percent  Dry  Helium  and  20  Percent 
Oxygen,  with  20  Painted  Aluminum  Plates) 


Figure  S7.  Model  (MOD360)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 
Conducted  on  04  Jan  90  (80  Percent  Diy  Helium  and  20  Percent 
Oxygen,  with  19  Black  Iron  Plates) 
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12  14  16  18  20  22 


TIME  (hr) 

Figure  S8  Model  (MOD350)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 
Conducted  on  1 1  Jan  90  (80  Percent  Dry  Helium  and  20  Percent 
Oxygen,  with  19  Black  Iron  Plates) 


0  2  4  6  8 


TIME  (hr) 

Figure  S9.  Model  (MOD3 1 0)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 
Conducted  on  27  Jul  90  (80  Percent  Dry  Helium  and  20  Percent 
Oxygen,  with  20  Painted  Aluminum  Plates) 
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Figure  SIO.  Model  (MOD350)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 
Conducted  on  01  Aug  90  (Humid  Helium  20  Painted  Aluminum 
Plates) 


Figure  S 11  Model  (MOD3 10)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 

Conducted  on  07  Aug  90  (80  Percent  Humid  Helium  and  20  Percent 
Oxygen,  with  20  Painted  Aluminum  Plates) 
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Figure  S12.  Model  (MOD315)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 
Conducted  on  15  Mar  90  (Dry  Helium  and  1  Corroded  Aluminum 
Plate) 
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Figure  S13.  Model  (MOD315)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 
Conducted  on  27  Mar  90  (80  Percent  Dry  Helium  and  20  ^rcent 
Oxygen,  with  1  Corroded  Aluminum  Plate) 
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0  1  2 


TIME  (hr) 

Figure  S14.  Model  (MOD375)  Fits  for  Hydrazine  and  Ammonia  for  the  Run 

Conducted  on  29  Mar  90  (80  Percent  Humid  Helium  and  20  Percent 
Oxygen,  with  1  Corroded  Aluminum  Plate) 
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APPENDIX  T 


SOFTWARE  LISTING  FOR  FORTRAN  NONLINEAR 
LEAST  SQUARES  FITTING  PROGRAM 


program  ModSSO 

c  back  to  two  measurements  6/26/90 
c  for  one  measurement  only  6/20/90 


c - 

c  This  program  defines  the  main  program  for  the  differential  equations 
c  in  question.  It  is  is  absolutely  required  for  explicit  model 
c  calculation  to  define  the  number  of  states,  parameters,  total  of 
c  states  +parameters,  and  states  +parameters+l . 
c 


c  functions  called 

c  subroutines  called 

c 
c 
c 
c 
c 
c 
c 
c 
c 

c  This  specific  routine  is  for  irreversible  oxidation  with  time 
c  varying  sites. 

j.  *************** *************************************************** 

*  BELOW  IS  THE  HEADER  WHICH  MUST  BE  REDEFINED  FOR  EACH  MODEL  * 

****************************************************************** 


none 

DGEAXEB 

DGEPDEQ 

INIT_STATE 

GETFILN 

ICOVAR 

GETRTDATA 

ADDNOISE 

FINDSUBSTRING 

FORMEXTENSION 


c 

kl 

c 

1. 

Hz  + 

SI  - > 

Hz:Sl 

c 

g-xl 

sl-xl 

Xl 

c 

c 

k2 

c 

2. 

Hz;Sl  - 

— >  I  + 

SI 

c 

xl-x2 

x2 

sl-xl+x2 

c 

c 

k3 

c 

3  . 

I 

- >  NH3 

c 

x2-x3 

x3 

c 

c 

yl  =  x4  - 

xl  -  x2  -  x3 

c 

y2  =  x3 

c 

c 

xl 

= 

HZ:  SI 

c 

x2 

I 

c 

x3 

.s 

NH3 

c 

x4 

= 

Hz 

c 

x5 

s 

kl 

c 

x6 

= 

k2 

c 

x7 

s 

k3 

c 

x8 

s 

si 
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=  x5  *  (x4-xl)  *  el 
=  x6  *  xl-x2) 

=  x7  *  {x2-x3) 


c 

c  el  =  x8-xl-x2 

c  dx(l)/dt  =  kl* (x4-xl) (sl-xl+x2) 
c  dx(2)/dt  =  k2*(xl-x2) 
c  dx{3)/dt  =  k3*(x2-x3) 
c 

c  y  =  x4-x2-x3-xl  (Hydrazine  measured) 
c  y2  =  x{3)  NH3 
c 
c 

c  for  two  error  estimation  the  second  state  x{3)  is  also  measured 

c - 

C  WITH  MICROSOFT  F77  LIMITATIONS  5/24/89  AT  TAFB 

C$NOTRUNCATE  or  and  comment  IMPLICIT  NONE  in  every  module  and  routine 
C  MODIFIED  2/8/89  TO  USE  GIL  FORM  OF  INTEGRATION 
C  MODIFIED  TO  INCLUDE  NORMAL  EQUATION  SOLUTIONS 
c  nov  15,  1988  modified  number  of  points,  so  as  to  take 
c  different  number  of  steps  between  points 
c  DOUBLE  precision 

C2345678912345678921234567893 1234567894123456789512345678961234567897 12 
implicit  none 

integer*4  m, n, p,max_points 
integer*4  no_iterations 
integer*4  NUM_STATE,  NUM_PARAM 
integer *4  NUM_MEASU,  NUM_DATAP 
integer *4  max_inject 

c  *  THE  NUWLSTATE  &  NUH_PARAM  MUST  BE  DEFINED  FOR  EACH  NEW  MODEL  * 

PARAMETER  (NUM_STATE  =  4) 

PARAMETER  (NUM.PARAM  =  4) 
c  experimental 
C 

Q 

c  *  M  &  N  MUST  BE  DEFINED  FOR  EACH  NEW  MODEL  * 

Q  *«*************•«***********************'******** 

parameter  (m  =  8) 

c  m  =  then  number  of  state  variable  plus  number  of  parameters  to  estimate 
pareuneter  (n  =  9) 

c  n  =  number  of  states  (m)  plus  1 
parameter  (p  =  2) 

c  p  =  number  of  measurement  variables,  2  for  two  measurements  12/30/89 
parcuneter  (max_inject  =  2  ) 

c  ♦  MAX_POINTS  MUST  BE  DEFINED  FOR  EACH  NEW  MODEL  * 

pareuneter  {max_points  =  90) 

logical  with_invert,  with_weight,  with_noise 

logical  partials 

integer*4  i , j , data_point 

integer *4  steps,  loops 

realms  zsigina,zbar 

real*8  noise (max_points+l, P) ,  work_noise(max_points+l) 
real*8  state(  m,n) 
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real*8  state_jacobian (  num_state,  nuin_state) 
real*8  param_jacobian (  num_state,  num_param) 
real*8  start_state{  m) 

c  system  is  the  states  plus  state  Jacobian 

c  (partials)  and  parameter  Jacobian  (partials) 

real*8  y{  max_points+l,  p) 
real*8  yhat (  max_points+l,  p) 
real*8  delta,  t 
real *8  sO,  std_dev 
c  sO  is  a  initial  condition  constant 

c  st_dev  is  the  std  deviation  of  the  measurement  errors 
real*8  weight {  p*max_points,  p*max_points) 
real *8  tt(  max_points+l) 
real*8  ttold 

real *8  a(  p*max_points,  m) 
real *8  at (  m,p*max_points) 
real*8  error {  p*max_points ,  1) 
real*8  HOLD_a{  p*max_points,  m) 
real*8  HOLD_at {  m, p*max_points) 
real *8  HOLD_error(  p*max_points,  1) 
real*8  atw(  m,  p*max_points) 
real*8  gamma_inv(  ra,m) 
real *8  gat (  m,  p*max_points) 
real *8  gatw(  m,  p*max_points) 
real*8  delx(  m,l) 
real *8  sum_error_sq 
real *8  dt,  rms 

c  2  is  real  number  work  space,  rcond  is  an  estimate  of  the  condition 
c  of  the  matrix  to  invert 
real*8  z (  m) ,  rcond 

c  kpvt  is  the  pivot  information  for  inverse 
integer*4  kvpt {  m) 
integer*4  cond 
c 

c  modified  2/20/89  to  include  Singular  Value  Decomposition 
logical  with_svd 
real *8  svdW{  p*max_points) 
real *8  svdU(  p*max_points,  m) 
real*8  svdUt  (  m,  p*inax_points) 
real*8  svdV(  m,  m) 
real *8  svdS(  m) 
real *8  svdE{  m) 
real *8  svdSplus(  m,m) 
real*8  svdVS(  m,m) 
real*8  svdAplus (  m,  p*max_points) 
integer*4  svdJOB 
integer*4  svdINFO 

c  modified  3/5/89  to  solve  the  Marquardt  algoritm 
real *8  marqLamda 
real *8  ORIGLaroda 
real *8  marqSuinSq(  6) 
real *8  inarqRMS(  6) 


c  06/05/89  added  to  inner  loop  from  marqstoneldsd4c . for 
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n  o 


real*8  olciinarqSumSq 
integer*4  inner_loop 


real *8  marqV 
real *8  marqMean(  m) 
real*8  roarqSigma{  m) 
real*8  inarqSiginaSq(  m) 
real *8  inarqB(  p*max_points) 
real *8  marqDeltaSumSq 
real *8  marqEpsilon(2) 
real*8  inarqState(  m,  1) 


character*40  ptsfile 
character*40  initfile 
character*40  outfile 
character*40  parfile 
character*40  endfile 
character*4  extension 
character*40  newfile 
character*40  eigfile 
character*!  string 
integer*4  location 


FOR  SIZE  INDEPENDENT  INTEGRATION 

real*8  leftK  M,N) 

real*8  left2 (  M,N) 

real*8  rightl(M,N) 

real*8  right2(M,N) 

real*8  temp(  M,N) 


c  FOR  SEQUENTIAL  RUNS 

integer*4  no_injections 
real*8  inject_time(  inax_inject) 
real*8  concentration {  meLX_inject) 
real *8  sO_original 
logical  sequential 


integer*4  marqLoop_count 
integer*4  lamda 
logical  TRUE,  FALSE 
logical  marqDone 


integer*4  repeat 


c  FOR  EIGENVALUES  AND  EIGENVECTORS  CALC 
real *8  eigenvalues (  m) 
real *8  eigenvectors (  m,m) 
real*8  eigennonns(  m) 

real*8  fvl  {  m)  !  temporary  storage  for  eigenvalue  calc 

real*8  fv2 (  m)  !  temporary  storage  for  eigenvalue  calc 

integer*4  eigen_  ierr  !  on  return,  0  if  ok,  not  0  for  jth  eigenvalue 

integer*4  matz  !  if  zero  eigenvalues  only,  not  zero  both 


logical  force_zero 
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c 


real *8  store_Lainda  {  4) 
real*8  hold_state(  m) 
real *8  end_state(  m) 
real *8  hold_end(  m,4) 
real*8  hold_deltax(  m,4) 
real*8  lamdaMAX 
logical  scale_it 


TRUE  =  .TRUE. 

FALSE  =  {  .not.  TRUE) 
c 

marqDone  =  FALSE 
lamdaMAX=  1 . OdS 
cond  =  1 

c  cond  is  condition  number  check  flag,  1  means  with  condition  checking 
c  0  means  withOUT  condition  checking 
c 

- - 

c 

c  read  in  the  initial  conditions  and  logical  flags 
print  *,  'For  the  initial  conditions  ' 
call  GETFILN(  initfile) 

c  initialize  state  variables 

call  INIT_STATE(  state,  m, n, delta, sO,  std_dev, 

&  with_invert,  with_weight. 

Sc  zsigma,  zbar,  with_noise. 

Sc  with_svd, 

St  marqV,  marqLamda,  marqEpsilon, 

Sc  initfile, 

St  NO_ITERATIONS,  part ia Is, 

&  sequential,  no_inj actions,  inject_time,  concentration, 

&  max_inject,  num_datap, 

St  force_zero,  scale_it) 
sO_original  =  sO 
repeat  =  m 
NUHJ4EASU  =  P 


- - 

c 

c  initialize  weight  matrix 
if  {with_weight)  then 

call  ICOVAR(  weight,  p*max_points,  p*max_points,  std_dev, 
&  numjneasu*  nun^datap) 

endif 

c  read  in  the  time  and  data  points 

print  *,  'For  real  time  data  points' 
call  GETFILN(  ptsfile) 

call  GETRTDATA(  tt,  y,  nMUC_points,  p,  ptsfile,  num^datap, 
nuntjneasu ) 


c 

c 

c 


add  noise  if  requested 
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n  n 


if  (  with_noise)  then 

call  ADDNOISE{  y,  zsigma,  zbar,  noise,  max_points,  p, 

Sc  work_noise,  NUM_DATAP,  NUM_MEASU) 

endif 
c 

c - 

c  form  several  new  files  for  output  of  calculated  data 

string  =  ' . ' 

call  FINDSUBSTRING (  ptsfile,  string,  location) 
extension  =  ' .par' 

call  FORMEXTENSION{  ptsfile,  extension,  location,  parfile) 
print  *,  'A  file  ', parfile, *  will  be  opened  for  ', 

Sc  'estimated  parameters  ' 

c 

string  =  ' . ' 

call  FINDSUBSTRING {  ptsfile,  string,  location) 
extension  =  '.out' 

call  FORMEXTENSION(  ptsfile,  extension,  location,  outfile) 
print  *,  'A  file  ', outfile,'  will  be  opened  for  ', 

Sc  'estimated  initial  data  points' 

string  =  '  .  ' 

call  FINDSUBSTRING (  ptsfile,  string,  location) 
extension  =  ' .end' 

call  FORMEXTENSION(  ptsfile,  extension,  location,  endfile) 
print  *,  'A  file  ', endfile, '  will  be  opened  for  ', 

&  'estimated  final  data  points' 

c 

c - 

c 

marqSumSq(  1)  s  O.OdO 
marqSumSq (  2 )  s  0 . OdO 
marqSumSq (  3 )  =  0 . OdO 
marqSumSq (  4 )  s  0 . OdO 
marqSumSq (  5)  =  O.OdO 
marqSumSq (  6 )  s  0 . OdO 
marqIiOop_count  =  1 
LOOPS  =  0 


OPEN  ending  estimates  FILE 

open(  unit  s  21,  file=  endfile,  statuss'new' ) 

C  OPEN  AND  WRITE  INITIAL  VALUES  TO  PARAMETER  FILE 
open(  unit  s  18,  files  parfile,  status='new' ) 
write {  18,  202)  svun_error_sq,  rms 
write(  18,  203)  (stated,  1) ,  isl,  REPEAT) 
c  write<  18,  203)  (stated,  1) ,  i=l,  REPEAT/2) 

c  write(  18,  203)  (stated,  1) ,  ia(repeat/2+l) ,  REPEAT) 

202  format (  2E11.4) 

203  format(  15fl0.4) 

c203  format(  15fl0.4,  2E11.4) 

c - 

ORIGLamda  s  marqLeunda 
do  1000,  is  1,  REPEAT 

hold_state(  i)  s  state (  i,l) 

1000  CONTINUE 
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c 

c - 

cOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
c  START  OF  MAIN  PROGRAM 

cOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

c - 

marqSuniSq(  5)  =  lamdaMAX 

C  do  while  ((  loops  .It.  no_iterations)  .and.  (  .not.  marqDONE) ) 

3000  IF  ((  loops  .It.  no_iterations)  .and.  (  .not.  marqDONE))  THEN 
print  * 

print  *, •  TOP  of  OUTER  LOOP  for  LOOP  COUNT MarqLoop_count 
marqLoop_count  =  MarqLoop_count  +  1 

print  *, 'nominal  laimda  =  '.marqLcunda 

c - 

cOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

c - 

c  calculate  nominal  Jacobian  with  nominal  values  of  X 
do  3011,  i=  1,  REPEAT 

state (  i,l)  =  hold_state(  i) 

3011  CONTINUE 

sum_error_sq  =  0 . OdO 

call  DGEPDEQ{  data_point,  steps,  loops, 

&  state,  y,  delta,  t,  sO, 

&  tt,  ttold,  a,  at,  error, 

&  delx,  sum_error_sq,  dt,  rms, 

&  m,  n,  p,  max_points. 

Sc  LEFTl,  LEFT2,  RIGHTl,  RIGHT2,  TEMP, 

&  NUM^STATE,  NUK_PARAM, 

Sc  state_jacobian,  param_jacobian,  partials, 

&  sequential,  no_inj actions,  inject_time,  concentration, 

Sc  max_inject,  s0_original,  num_measu,  num_datap,  yhat) 
c  end  of  calculate  nominal  Jacobian  with  nominal  values  of  X 

call  DGEMTCP(  a,  p*max_points,  ro. 

Sc  HOLD_a,  num_datap*num_measu,  m) 

call  DGEMTCP{  at,  m,  p*max_points. 

Sc  HOLD_at,  m,  num_datap*numjmeasu) 

call  DGEMTCP{  error,  p*max_points,  1, 

St  HOLD_error,  num_datap*num_jneasu,  1) 

c 

c - 

clllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

c - - - 

c  calculate  DELTA  X  based  upon  the  nominal  values  of  LAMDA 
store_lcunda  (  1)  =  marqLcunda 

print  *,'leunda  for  1st  calculation  =  ',marqLamda 
call  DGEAXEB(  with_invert,  with_weight. 

Sc  i,  j,  sO,  std_dev,  weight. 

Sc  a,  at,  atw,  gainma_inv. 

Sc  gat,  gatw,  error,  delx. 

Sc  z,  rcond,  kvpt,  cond, 

St  with_svd,  svdW,  svdU, 

&  svdUt,  svdV,  svdS, 
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&  svdE,  svdSplus,  svdVS, 

&  svdAplus,  svdJOB,  svdINFO, 

&  marqLamda,  marqV, 

&  marqMean,  marqSigma,  marqSigmaSq,  marqB, 

&  m,  n,  p,  max_points. 

Sc  NUM_STATE,  NUM_PARAM,  NUM_MEASU,  NUM_DATAP,  scale_it) 
c  hold  the  DELTA  X  values  until  we  see  which  SOS  is  least 
do  1041,  i  =  1,  REPEAT 

hold_deltax(  i,l)  =  delx(  i,l) 

c  print  *,  'delta  x  for  nominal  lamda=  ',delx(  i,l) 

state (  i,l)  =  hold_state(  i)  +  delx{  i,l) 
if  {force_zero  )  then 

if  (state(  i,l)  .It.  0.0)  then 
state {  i,l)  =  hold_state(  i) 
end  if 
endif 

1041  CONTINUE 

c - 

c - 

c  calculate  first  SOS  with  nominal  values  of  X  for  STATES  ONLY 
sum_error_sq  =  0 . OdO 

call  DGSPDEQ(  data_point,  steps,  loops, 

&  state,  y,  delta,  t,  sO, 

Sc  tt,  ttold,  error. 

Sc  delx,  sum_error_sq,  dt,  rms, 

&  m,  n,  p,  inax_points, 

&  LEFTl,  LEFT2,  RIGHTl,  RIGHT2,  TEMP, 

&  NUM_STATE,  NUM_PARAM, 

Sc  sequential,  no_inj actions,  inject_time,  concentration. 
Sc  tnax_inject,  sO_original,  num_measu,  num_datap,  yhat) 

c - 

c - 

c  store  final  state 

do  1051,  i  =  1,  REPEAT 

hold_end{  i,l)  =  state (  i,l) 

1051  CONTINUE 

marqSuinSq(  1)  =  sum_error_sq 
inarqRMS(  1)  =  rms 

print  *,'sum  errors  squared  =  ' , sum_error_sq 
print  *, 'rms  of  the  errors  =  ',rms 
print  *,  '  ' 


C222222222222222222222222222222222222222222222222222222222222222 


do  3012,  i=  1,  REPEAT 

state (  i,l)  =  hold_state(  i) 

3012  CONTINUE 

call  IX3EMTCP(  HOLD_at,  m,  p*max_points, 

&  at,  m,  num_datap*num_]neasu) 

call  DGEMTCP(  HOLD_a,  p*max_points,  m. 

Sc  a,  num_datap*num_measu,  m) 

call  DGEMTCP(  HOLD_error,  p*max_points,  1, 
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&  erior,  num_datap*num_measu,  1) 

c  decrease  LAMDA  and  calculate  new  DELTA  X 
marqLamda  =  marqlamda  !  marqV 
store_lamda(  2)  =  marqLamda 

print  *,'lamda  for  2nd  calculation  =  '.marqLamda 
c  calculate  DELTA  X  based  upon  the  new  values  of  LAMDA 
call  DGEAXEB(  with_invert,  with^weight. 

Sc  i,  j,  sO,  std_dev,  weight, 

&  a,  at,  atw,  gainma_inv, 

&  gat,  gatw,  error,  delx, 

St  z,  rcond,  kvpt,  cond, 

&  with_svd,  svdW,  svdU, 

&  svdUt,  svdV,  svdS, 

St  svdE,  svdSplus,  svdVS, 

&  svdAplus,  svdJOB,  svdINFO, 

&  marqLamda,  marqV, 

&  marqMean,  marqSigma,  marqSigmaSq,  marqB, 

Si  m,  n,  p,  max_points. 

Si  NUM_STATE,  NUM_PARAM,  NUM_MEASU,  NUM_DATAP,  scale_it) 
c  hold  the  DELTA  X  values  until  we  see  which  SOS  is  least 
c  and  store  final  integrated  state 
do  1042,  i  =  1,  REPEAT 

hold_deltax(  i,2)  =  delx(  i,l) 

c  print  *,  'delta  x  for  decreased  lamda=  ',delx{  i,l) 

state (  i,l)  =  hold_state(  i)  +  delx(  i,l) 
if  (force_zero  )  then 

if  (state(  i,l)  .It.  0.0)  then 
stated  i,l)  a  hold_state(  i) 
endif 
endif 

1042  CONTINUE 

c - 

c - - - 

c  calculate  first  SOS  with  nominal  values  of  X  for  STATES  ONLY 
sum_error_sq  =  0 . OdO 

call  DGSPDEQ(  data_point,  steps,  loops. 

Si  state,  y,  delta,  t,  sO, 

St  tt,  ttold,  error. 

Si  delx,  sum_error_sq,  dt,  rms. 

Si  m,  n,  p,  roax_points, 

St  LEFTl,  LEFT2,  RIGHTl,  RIGHT2,  TEMP, 

Si  NUM_STATE,  NUM_PARAM, 

Si  sequential,  no_injections,  inject_time,  concentration. 

Si  max_inject,  sO_original,  num_jneasu,  num_datap,  yhat) 

c - 

c - , - 

c  store  final  state 

do  1052,  i  =  1,  REPEAT 

hold_end(  i,2)  =  state (  i,l) 

1052  CONTINUE 

marqSumSq (  2 )  a  sum_error_sq 
marqRMSC  2)  =  rms 

print  *,'sum  errors  squared  =  ' , sum_error_sq 
print  *,'rms  of  the  errors  =  * , rms 
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print  *,  ‘  ' 

c - 

C333333333333333333333333333333333333333333333333333333333333333 

c - 

do  3013,  i=  1.  REPEAT 

state (  i,l)  =  hold_state(  i) 

3013  CONTINUE 

call  DGEMTCP{  HOLD_at,  tn,  p*max_points, 

&  at,  m,  nuin_datap*num_measu) 

call  EX3EMTCP{  HOLD_a,  p*max_points,  m, 

&  a,  num_datap*nuin_measu,  m) 

call  IX3EMTCP(  HOLD_error,  p*max_points,  1, 

Sc  error,  nuin_datap*num_measu,  1) 

c  increate  LAMDA  from  previous  (nominal)  and  calculate  new  DELTA  X 
marqLamda  =  store_lcimda  {  1)  *  marqV 
store_lcunda  {  3)  =  marqLcimda 

print  *,'lamda  for  3nd  calculation  =  ', marqLamda 
c  calculate  DELTA  X  based  upon  the  new  values  of  LAMDA 
call  DGEAXEB(  with_invert,  with_weight, 

&  i,  j,  sO,  std_dev,  weight. 

Sc  a,  at,  atw,  gamma_inv. 

Sc  gat,  gatw,  error,  delx. 

Sc  z,  rcond,  kvpt,  cond. 

Sc  with_svd,  svdW,  svdU, 

Sc  svdUt,  svdV,  svdS, 

Sc  svdE,  svdSplus,  svdVS, 

Sc  svdAplus,  svdJOB,  svdINFO, 

Sc  marqLamda,  marqV, 

&  marqMean,  marqSigma,  marqSigmaSq,  marqB, 

Sc  m,  n,  p,  max_points. 

Sc  NUM_STATE,  NUM_PARAM,  NUM_MEASU,  NUM.DATAP,  scale_it) 
c  hold  the  DELTA  X  values  until  we  see  which  SOS  is  least 
c  and  store  final  integrated  state 
c  and  then  set  state  to  NEW  initial  state 
do  1043,  i  =  1,  REPEAT 

hold_deltax(  i,3)  =  delx(  i,l) 

c  print  *,  'delta  x  for  increased  lamda=  ',delx(  i,l) 

state (  i,l)  a  hold_state(  i)  -i-delxi  i,l) 
if  {force_zero  )  then 

if  (state (  i,l)  .It.  0.0)  then 
state (  i,l)  =  hold_state(  i) 
endif 
endif 

1043  CONTINUE 


c  calculate  first  SOS  with  nominal  values  of  X  for  STATES  ONLY 


sum_error_sq  =  0 . OdO 

call  DGSPDEQ(  data_point,  steps,  loops. 
Sc  state,  y,  delta,  t,  sO, 

&  tt,  ttold,  error, 

&  delx,  sum_error_sq,  dt,  rms, 

Sc  m,  n,  p,  max_points, 

&  LEFTl,  LEFT2,  RIGHTl,  RIGHT2,  TEMP, 
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&  NUM_STATE,  NUM_PARAM, 

&  sequential,  no_injections ,  inject_time,  concentration, 
&  max_inject,  sO_original,  num_measu,  num_datap,  yhat) 

c - 

c - 

c  store  final  state 

do  1053,  i  =  1,  REPEAT 

hold_end{  i,3)  =  state (  i,l) 

1053  CONTI14UE 

marqSumSq (  3 )  =  sum_error_sq 
marqRMS (  3 )  =  rms 

print  *,'suin  errors  squared  =  * , sum_error_sq 
print  *,'nns  of  the  errors  =  ■ , rms 
print  *, ■  • 


C44444444444444444444444444444444444444444444444444444444444444444 


c  now  determine  which  Lamda  (if  any)  produced  the  best  SOS 
c  if  {  marqSumSq(  2)  .le.  marqSumSq(  3))  then 

c  if  (  marqSumSq(  2)  .le.  marqSumSq(  1))  then 

if  (  (  marqSumSq(  2)  .le.  marqSumSq(  1)  )  .and. 

&  (  marqSumSq(  2)  .le.  marqSumSq(  3)  )  .and. 

&  (  marqSumsq{  2)  .It.  marqSumSq(  5))  )  then 

marqLamda  =  store_Lamda{  2) 
do  1061  i=l,m 

end_state(  i)  =  hold_end(  i,2) 

state (  i,l)  =  hold_state(  i)  +  hold_deltax{  i,2) 
if  (force_2ero  )  then 

if  {state(  i,l)  .It.  0.0)  then 
state (  i,l)  a  hold_state(  i) 
endif 
end  if 

hold_state(  i)  =  state(  i,l) 

1061  CONTINUE 

c  determine  delta  SOS  from  previous  and  best  current 

marqDeltaSumSQ  =  marqSumSq(  5)-  marqSumSq(  2) 
c  set  current  to  best  current 

marqSumSq(  6)  =  marqSumSq(  2) 

print  *,  'for  LS  lamda,  delta  siim  is  =  ', marqDeltaSumSQ 
print  '  the  NEXT  nominal  lamda  is  =  ' ,  marqLamda 
write(  6,12)  (state (i, 1) , i=l,  REPEAT) 

call  wrt_state(  end_state,  state,  marqSumSq(  2),marqRMS(  2), 
&  m,  repeat) 


c  elseif  (  (  marqSuinSq(  2)  .gt.  marqSumSq(  3))  .and. 

c  &  (  marqSumSq(  1)  .le.  marqSumSq(  3))  ) then 

elseif  (  (  marqSumSq(  2)  .gt.  marqSumSq(  1))  .and. 

&  (  marqSumSq(  1)  .le.  marqSumSq(  3))  .and. 

&  (  marqSumsq(  1)  .It.  marqSumSq(  5))  )  then 

marqLamda  s  store_Lcunda  (  1) 
do  1062  i=l,m 

end_state (  i )  =  hold_end (  i , 1 ) 

state (  i,l)  a  hold_state(  i)  +  hold_deltax(  i,l) 
if  (force_zero  )  then 
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if  (state(  i,l)  .It.  0.0)  then 
state {  i,l)  =  hold_state(  i) 
endif 
end  if 

hold_state{  i)  =  state (  i,l) 

1062  CONTINUE 

c  determine  delta  SOS  from  previous  and  best  current 

marqDeltaSumSQ  =  marqSumSq(  5)-  marqSumSq(  1) 
c  set  current  to  best  current 

marqSumSq{  6)  =  marqSumSq(  1) 

print  *,  'for  NOM  Icimda,  delta  sum  is  =  marqDeltaSumSQ 
print  the  NEXT  nominal  lamda  is  =  marqLamda 
write {  6,12)  (stated,  1) ,  i=l,  REPEAT) 

call  wrt_state{  end_state,  state,  marqSumSq(  l),marqRMS(  1), 
&  m,  repeat) 

c - 

elseif  (  (  marqSumSq(  2)  .gt.  marqSumSq(  3))  .and. 

Sc  (  marqSumSq(  1)  .gt.  marqSumSq{  3))  .and. 

tc  (  marqSumsq(  3)  .It.  marqSumSq(  5))  -nen 

c  else 

marqLamda  =  store_Lamda(  3) 
do  1063  i=l,m 

end_state(  i)  =  hold_erd(  i,3) 

state (  i,l)  =  hold_state(  i)  +  hold_deltw»x {  i,3) 
if  (force_zero  )  then 

if  {state(  i,l)  .It.  0.0)  then 
state (  i,l)  =  hold_state(  i) 
endif 
endif 

hold_state(  i)  =  state (  i,l) 

1063  CONTINUE 

c  determine  delta  SOS  from  previous  and  best  current 

marqDeltaSumSQ  =  marqSumSq(  5)-  marqSumSq(  3) 
c  set  current  to  best  current 

marqSumSqC  6)  =  marqSiimSq{  3) 

print  *,  ‘for  gradient  lamda,  delta  sum  is  =  ’, marqDeltaSumSQ 
print  '  the  NEXT  nominal  lamda  is  =  ' ,  marqLamda 
write(  6,12)  (state (i, 1) , i=l,  REPEAT) 

call  wrt_state(  end_state,  state,  marqSumSq(  3),marqRMS(  3), 
&  m,  repeat) 

c 

c - 

c4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5. 4. 5 

c - - - 

c 

else 

store_lamda(  4)  =  marqLamda 
marqSumSq(  4)  =  marqSumSq(  1) 

2000  IF  (  (  marqSumSq(  4)  .ge.  marqSumSq(  5)  )  .and. 

&  (  marqLamda  .It.  lamdeiMAX  )  )THEN 

- - 

- - 

c  calculate  nominal  Jacobian  with  nominal  values  of  X 
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do  3014,  i=  1,  REPEAT 

state {  i,l)  =  hold_state(  i) 

3014  CONTINUE 

call  DGEMTCP(  HOLD_at,  m,  p*max_points, 

&  at,  m,  nuin_datap*nuin_measu) 

call  DGEMTCP{  HOLD_a,  p*max_points ,  m, 

&  a,  nuni_datap*nuin_measu,  m) 

call  DGEMTCP(  HOLD_error,  p*max_points,  1, 

&  error,  nuni_datap*nuin_measu,  1) 

c  increate  LAMDA  from  previous  gradient  and  calculate  new  DELTA  X 
marqLamda  =  store_lcimda  (  4)  *  marqV 
store_lamda (  4 )  =  marqLamda 

print  *,'lamda  for  inner  loop  calculation  =  ', marqLamda 
c  calculate  DELTA  X  based  upon  the  new  values  of  LAMDA 
call  DGEAXEB(  with_invert,  with_weight, 

&  i,  j,  sO,  std_dev,  weight, 

&  a,  at,  atw,  gamma_inv, 

&  gat,  gatw,  error,  delx, 

&  2,  rcond,  kvpt,  cond, 

&  with_svd,  svdW,  svdU, 

&  svdUt,  svdV,  svdS, 

&  svdE,  svdSplus,  svdVS, 

&  svdAplus,  svdJOB,  svdINFO, 

&  marqLamda,  marqV, 

Sc  marqMean,  marqSigma,  marqSigmaSq,  marqB, 

&  m,  n,  p,  max_points, 

Sc  NUM_STATE,  NUM_PARAM,  NUH_MEASU,  NUM_DATAP,  scale_it) 

c  hold  the  DELTA  X  values  until  we  see  which  SOS  is  least 
c  and  store  final  integrated  state 
c  and  then  set  state  to  NEW  initial  state 
do  1044,  i  a  1,  REPEAT 

hold_deltax(  i,4)  =  delx(  i,l) 

c  print  *,  'delta  x  for  increased  lamda=  ',delx(  i,l) 

state {  i,l)  =  hold_state{  i)  +delx{  i,l) 
if  (force_zero  )  then 

if  (state(  i,l)  .It.  0.0)  then 
state (  i,l)  =  hold_state(  i) 
endif 
endif 

1044  CONTINUE 

c - 

c - 

c  calculate  SOS  with  new  values  of  X  for  STATES  ONLY 
sum_error_sq  =  0 . OdO 

call  DGSPDEQ{  data_point,  steps,  loops. 

Sc  state,  y,  delta,  t,  sO, 

&  tt,  ttold,  error, 

&  delx,  suiiv_error_sq,  dt,  rms. 

Sc  m,  n,  p,  max_points, 

&  LEFTl,  LEFT2,  RIGHTl,  RIGHT2,  TEMP, 

Sc  NUM_STATE,  NUM_PARAM, 

&  sequential,  no_inj actions,  inject_time,  concentration, 

&  max_inject,  s0_original,  num_ineasu,  nuin_datap,  yhat) 
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c - 

c  store  final  state 

do  1054,  i  =  1,  REPEAT 

hold_end{  i,4)  =  state (  i,l) 

1054  CONTINUE 

marqSumSq(  4)  =  sum_error_sq 
inarqRMS(  4)  =  rms 

print  *, 'sum  errors  squared  =  ' , sum_error_sq 
print  *, 'rms  of  the  errors  =  '.rms 
print  * ' 

C  ENDDO 

GOTO  2000 
ENDIF 

do  1064  i=l,m 

end_state(  i)  =  hold_end{  i,4) 

state (  i,l)  =  hold_state(  i)  +  hold_deltax(  i,4) 
if  {force_2ero  )  then 

if  (state(  i,l)  .It.  0.0)  then 
state!  i,l)  =  hold_state(  i) 
endif 
endif 

hold_state{  i)  =  state!  i,l) 

1064  CONTINUE 

c  determine  delta  SOS  from  previous  and  best  current 

marqDeltaSumSQ  =  marqSumSq!  5)-  marqSuroSq!  4) 
store_Lamda !  4)  »  marqlaunda 
c  set  current  to  best  current 

marqSumSq!  6)  =  marqSumSq!  4) 

print  *,  'for  inner  loop  gradient  lamda,  delta  sum  is  =  ' , 

&  marqDeltaSumSQ 

print  *,  '  the  NEXT  nominal  Icimda  is  =  ' ,  marqLamda 
write!  6,12)  !state!i, 1) , i=l,  REPEAT) 

call  wrt_state!  end_state,  state,  marqSumSq!  4),marqRMS!  4), 
&  m,  repeat) 

if  !  marqLamda  .gt.  lamdamax)  then 
print  *, '  ' 

print  *,  'lamda  MAX  exceeded,  will  terminate  loop' 
print  *, '  ' 

endif 
endif 

c - 

C55555555555555555555555555555555555555555555555555555555555555555 

c - 

c  check  for  convergence 

if  !  (Dabs!  marqDeltaSumSQ))  .It. 

&  (  marqEpsilon!  1)*  marqSumSq!  6))  )  then 

print  *,  'Converged  by  case  ONE...' 
marqDone  =  TRUE 

elseif  (  (Dabs!  marqDeltaSumSQ))  .It. 

&  (  marqEpsilon!  2)  )  )  then 

print  *,  'Converged  lay  case  TWO...' 
marqDone  =  TRUE 
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end  if 

c  set  previous  to  best  current  for  next  outer  loop 

marqSumSq(  5)  =  marqSumSq(  6) 

c - 

loops  =  loops  +  1 
C  ENDDO 

GOTO  3000 
ENDIF 

c - 

c  close  parfile 

close  (unit=18) 
c  close  endfile 

close  {unit=21) 

c - : - 

12  f ormat (  15fl0.5) 

11  format (  13fS.2) 

14  format (  15dl2.4), 

15  format (  15fl0.4) 

101  format  {  15el0.2) 

c 

c - 

C66666666666666666666666666666666666666666666666666666666666666666 

c - 

c 

do  3020,  i=  1,  m 

state (  i,l)  =  hold_state(  i) 

3020  CONTINUE 


c  calculate  last  SOS  with  the  best  values  of  X  for  STATES  ONLY 
sum_error_sq  =  0 . OdO 

call  DGSPDEQ(  data_point,  steps,  loops, 

&  state,  y,  delta,  t,  sO, 

&  tt,  ttold,  error, 

&  delx,  sum_error_sq,  dt,  rms, 

&  m,  n,  p,  max_points, 

&  LEFTl,  LEFT2,  RIGHTl,  RIGHT2,  TEMP, 

&  NUM_STATE,  NUM_PARAM, 

&  sequential,  no_inj actions,  inject_time,  concentration, 
&  mcuc_inject,  s0_original,  num_!neasu,  nuin_datap,  yhat) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


sum_error_sq  *  0 . OdO 

call  DGEPDEQ(  data_point,  steps,  loops, 

&  state,  y,  delta,  t,  sO, 

&  tt,  ttold,  a,  at,  error, 

&  delx,  sum_error_sq,  dt,  rms, 

&  m,  n,  p,  max_points, 

&  LEFTl,  LEFT2,  RIGHTl,  RIGHT2,  TEMP, 

&  NUM_STATE,  NUM_PARAM, 

£c  state_jacobian,  param_jacobian,  partials, 

&  sequential,  no_inj actions,  inject_time,  concentration, 
&  max_inject,  s0_original,  num_jneasu,  nunudatap,  yhat) 
print  * , ' the  FINAL  sum  errors  squared  =  ' , suin_error_sq 
print  *, 'the  FINAL  rms  of  the  errors  *  ’,rms 
open(  unit  s  20,  files  outfile,  statuss'new' ) 
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DO  5000  i  =  1,  NUM_DATAP 
write(  20,  201)  tt (  i+1), 

&  (  y(  i+1,  j ) , j=l, num_measu  ), 

Sc  (yhat(  i,  j  )  ,  j=l,  num_measu  ), 

&  (  (y{  i+1,  j)-  yhat(  i,j)  ) , j=l,num_measu  ) 

201  format  {  flO.4,  3(  15fl0.5)) 

5000  CONTINUE 

close  {unit=20) 

c - 

c  FOR  EIGENVALUES  AND  EIGENVECTORS  OF  FINAL  COVARIANCE  MATRIX 

c  request  both  eigenvalues  and  eigenvectors 
if(  with_invert)  then 
string  =  ' . ' 

call  FINDSUBSTRING (  ptsfile,  string,  location) 
extension  =  ' .eig' 

call  FORMEXTENSION(  ptsfile,  extension,  location,  eigfile) 
print  *,  *A  file  ', eigfile,'  will  be  opened  for  ', 

&  'eigenvalues  of  final  covariance' 

matz  =  1 

open(  unit  =  20,  file=  eigfile,  status='new' ) 

call  RS(  m,  m,  gainma_inv,  eigenvalues,  matz,  eigenvectors, 

&  fvl,  fv2,  eigen_ierr) 

print  *,  'the  eigenvalues  of  A  are...' 

write (  6,  15)  {  eigenvalues (i) ,  i=l,  m) 
write(  20,15)  (  eigenvalues (i) ,  i=l,m) 
print  *,  'the  eigenvectors  of  A  in  column  form  are...' 
do  i=l,  m 

write(  6,15)  (eigenvectors (i, j ) ,  j=l,  m) 
write{  20,15)  (eigenvectors(i, j) ,  jsl,  m) 
enddo 

call  vecnorm(  eigenvectors,  m,  m,  eigennorms) 
print  *,  'the  eigenvector  norms  of  A  are...' 
write {  6,  15)  (  eig  'inorros(i),  i=l,  m) 
write {  20,  15)  {  eigennorms { i) ,  i=l,  m) 
close(  units20) 
else 

print  *,  'inverse  of  covariance  not  formed,  so  no  eigenvalues' 
endif 
stop 
end 

subroutine  wrt_state(  end_state,  state,  sum_error_sq,  rms. 

Sc  m,  repeat) 

implicit  none 
integer *4  m,  repeat,  i 
real*8  state(  m,  m+1) 
real*8  end_state(  m) 
real *8  sum_error_sq 
real'*8  rms 

c  write  ending  states  and  convergence  criterion  to  endfile 
write (  21,  202)  siiin_error_sq,  rms 
write (  21,  203)  (end_state( i) ,  i=l,  REPEAT) 
c  write  beginning  states  and  convergence  criterion  to  parfile 
write (  18,  202)  sum_error_sq,  rms 
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write{  18,  203)  (stated,  1)  ,  i  =  l,  REPEAT) 

202  format {  2E11.4) 

203  formate  15fl0.4) 

c203  formate  15fl0.4,  2E11.4) 

c - 

c  write (  6,12)  (state ( i, 1) , i=l,  REPEAT) 

12  formate  15fl0.5) 

return 
end 

subroutine  vecnorm(  matrix,  row,  col,  norms) 

implicit  none 

integer*4  i,j 

integer*4  row 

integer*4  col 

real *8  matrix (  row,  col) 

real *8  norms (  col) 

do  i=l,  col 

norms (  i )  =  0 . OdO 
do  j=l,  row 

norms (  i)  =  norms (  i)  +  matrix (  i,j)**2 
enddo 

norms (  i )  =  DSQRT (  norms (  i ) ) 
enddo 
return 
end 


c - 

c  the  following  routines  MAY  BE  APPLICATION  SPECIFIC 
c  and  are  associated  with  a  FOUR  PARAMETER  estimation 
c  of  the  2ND  order  CATALYTIC  adsorption  loss  equations 
c  WITH  estimation  of  the  initial  concentration  of  HZ 

c - 

subroutine  extract_a2 (  a,  rows,  m,  data_point,  state, 

&  n,  at, 

&  NUM_STATE,  NUH_PARAM,  num_jneasu) 

implicit  none 

c - 

c  This  routine  extracts  the  proper  form  of  the  jacobian  matrix 
c  based  upon  the  partial  of  the  measurement  with  respect  to  the 
c  states.  It  is  symbolically  the  partial  of  H  (the  algebraic  form 
c  of  the  measurement)  with  respect  to  X  (the  states,  and  the 
c  parcuneters) .  If  the  measurment  was  nonlinear  in  the  states, 
c  this  subroutine  would  include  nonlinear  terms, 
c 

c  functions  called  none 

c  subroutines  called  none 

- - 

integer*4  NUM_STATE,  NUM_PARAM 

integer*4  NUM«><EASU 

integer*4  rows 

integer*4  m 

integer*4  data_point 

integer*4  n 

integer*4  j,i 
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real*8  a(  rows.m) 

real*8  state!  m,n) 

real *8  at {  m,rows) 

integer*4  pointer 

pointer  =  num_measu*{  data_point  -1)  +1 
c  pointer  will  advance  1,2, 3, 4,...  if  num_measu  =  1 

c  pointer  will  advance  1,3, 5, 7,...  if  num_measu  =  2 

c  so  if  two  measurements,  for  the  second  measurement 
c  the  proper  extraction  would  be  a(  pointer+1,1) 
do  100, j  =  1,  NUM_STATE 

c - 

c  edit  a  to  reflect  model 

Q  ***★***«*«*****«*««*<***«**«*«•*««««****•****** 

c  *  A  MUST  BE  DEFINED  FOR  EACH  NEW  MODEL  * 

C 

A{  pointer,  j)  =  -STATE!  1,  j+1) -state!  2,  j+1) 

&  -state!  3, j+1) 

&  +state!  4,  j+1) 

c  for  the  second  measurement 

A!  pointer+1,  j)  =  STATE!  3,  j+1) 

c  experimental 

c - 

do  110  i=0,  !num_measu-l ) 

AT(j,  pointer+i)=  A!  pointer+i,  j) 
c  for  the  second  measurement 
110  continue 

c  AT(j,  pointer+1) =  A!  pointer+1,  j) 

100  CONTINUE 

do  200,  j  =  1,  NUM_PARAM 

c - 

c  edit  a  to  reflect  model 

A!  pointer,  j+NUM_STATE  )  *  -STATE!  3,  j+NUM_STATE+l) 

&  -STATE!  1,  j+NUM_STATE+l) 

&  -state!  2,  j+Num_State+l) 

Sc  +state!  4,  j+Num_State+l) 

c  for  the  second  measurement 

A!  pointer+1,  j+NUM_STATE  )  =  STATE!  3,  j +NUM_STATE+ 1 ) 

c - 

do  210  i=0,  !num_measu-l ) 

AT ! j+NUM_STATE,  pointer+i)  =  A!  pointer+i,  j+NUM_STATE  ) 
210  continue 

c  for  the  second  measurement 

c  AT! j+NUM_STATE,  pointer+1)  =  A!  pointer+1,  j+NUH_STATE  ) 

200  CONTINUE 
return 
end 


c - 

c  the  following  routines  are  APPLICATION  SPECIFIC 
c  and  are  associated  with  a  five  PARAMETER  estimation 
c  of  the  2ND  order  irreversible  oxidation  equations 
c  WITH  estimation  of  the  initial  concentration  of  HZ 
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c 


subroutine  form_error{  error,  e_rows,  e_cols,  data_point, 

^  y>  y_rows,  y_cols,  state,  m,  n, 

&  suin_error_sq,  sO,  NUM_MEASU,  yhat) 

- - 

c  This  routine  forms  the  error  between  the  measurement ( s )  an 
c  the  estimated  output  of  the  alegbraic  equation  y  =  function 
c  (of  states  and  parameters) .  The  sum  of  the  errors  is  also 
c  calculated, 
c 

c  functions  called  none 

c  subroutines  called  none 

- - 

implicit  none 

integer*4  numjneasu 

integer *4  e_rows,  e_cols 

integer *4  y_rows,  y_cols 

integer*4  m,n,i 

integer*4  data_point 

real *8  error (  e_rows,  e_cols) 

real*8  y(  y_rows,  y_cols) 

real*8  yhat{  y_rows,  y_cols) 

real*8  state(  m,n) 

real*8  sum_error_sq 

real*8  sO 

integer*4  pointer 

c  e(i)  a  y  -yhat  *  y  -  (  x4  -  xl  -  x3) 

c  e(  i+1)  a  x2  -  x2hat 

pointer  a  numjmeasu*(  data_point  -1)  +1 
c  pointer  will  advance  1,2, 3, 4,...  if  nuin_measu  a  1 

c  pointer  will  advance  1,3, 5, 7,...  if  num_measu  a  2 

c  so  if  two  measurements,  for  the  second  measurement 
c  the  proper  error  would  be  error(  pointer+1,1) 

c  the  second  measurement  for  the  seune  seunple  time  is  y(  i,2) 

- - 

c  edit  yhat  to  reflect  model 

Q  ****•••**«*****•****•****«****•************«**« 

c  *  YHAT  MUST  BE  DEFINED  FOR  EACH  NEW  MODEL  * 

g  •*******«*«****•**«****•**•*******««*****•**«** 

c 

yhat(  data_point,  1)  a  state(  4,1)-  state{  3,1)-  state{  2,1) 
&  -  state (  1,1) 

yhat(  datajpoint,  2)  a  state {  3,1) 

- - - - 

do  100  ia  0,  (  num_|neasu  -1) 

errorC  pointer+i  ,1)  a  y(  data_point+l, 1+i) 

St  -  yhat(  data_point  ,1+i) 

100  continue 

c  error(  pointer+l,  1)  a  y(  data_point+l,  2) 

c  St  -  yhat(  data_point  ,2) 

do  110  ia  0,  (  nuRLjneasu  -1) 

suiii_error_sq  a  8um_error_sq  +  error (  pointer+i,  1)  **2 
110  continue 

c  St  ♦  error  (  pointer,  1)  **2 


210 


c 


& 

return 

end 


+  error {  pointer+1, 1) **2 


subroutine  jacobian(  x,  m,  n,  a,  b,  sO, 

&  nuin_state,  nuin_par,  partials) 

c - 

c  This  routine  defines  the  partial  of  the  differential  equations 
c  with  respect  to  the  states  and  the  unknown  parameters.  This  routine 
c  is  absolutely  required  if  the  partials  are  required  for  explicit 
c  calculation.  The  jacobian  can  be  numerically  evaluated  for 
c  'nice*  equations  with  smooth  derivatives.  It  is  a  significant 
c  savings  in  time  to  use  explicitely  defined  partials. 
c 

c  functions  called  none 

c  subroutines  called  none 

c 

c  This  specific  routine  is  for  the  catalytic  adsorption  model 
c  dx(l)/dt  =  kl (g-x(l) (s-x(l)+x{2)  -kml (x{l) -x(2) ) 
c  dx{2)/dt  =  k2(x(l)-x(2)) 
c  y  =  g-x(l)-x{2) 

c - 

implicit  none 
logical  partials 
integer*4  m,n 

integer*4  NUM_STATE,  NUM_PAR 
real*8  x{  m,n) 

c  sO  is  an  initial  condition 
real*8  el,e2,e3 

real *8  a(  num_state,  num_state) 
real*8  b(  num_state,  num_par) 
real*8  sO 

if  (  partials)  then 


c 


c  edit  to  reflect  model 


c 

el  =  O.OdO 

c 

e2  =  O.OdO 

c 

e3  s  O.OdO 

c 

a(l,l)  *  - 

■x(  3,1)*( 

el 

c 

a(l,2)  . 

x{  3,1)*< 

el 

c 

a(2,l)  * 

x{  6,1) 

c 

a(2,2)  =  - 

■x(  6,1) 

c 

b(l,  1)  . 

el  *  e2 

c 

b(l,  2)  * 

-e3 

c 

b(l,  3)  . 

x(  3,1)  * 

el 

c 

b(l,  4)  = 

O.OdO 

c 

b{l,  5)  = 

x{  4,1)* 

e2 

c 

b(2,  1)  a 

O.OdO 

c 

b(2,  2)  a 

O.OdO 

c 

b(2,  3)  a 

O.OdO 

c 

b{2,  4)  a 

e3 

c 

b(2,  5)  a 

O.OdO 

else 

-x(  4,1) 
+x(  4,1) 


print  *, 'Partials  not  defined  for  this  model...' 
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stop 

endif 

c - 

RETURN 

end 

REAL*8  FUNCTION  FUNCOFX(  x,  t.  m,  n,  xd,  sO,j) 

c - 

c  This  routine  defines  the  function  for  the  differential  equations 
c  in  question.  It  is  is  absolutely  required  for  explicit  model 
c  calculation, 
c 

c  functions  called  none 

c  subroutines  called  none 

c 

c - 

implicit  none 
integer*4  m,n 
integer*4  j 

real*8  x(  m,n),  xd(  m,n),t 
real*8  el 

c  sO  is  initial  conditions 

c  *  FUNCOFX  MUST  BE  DEFINED  FOR  EACH  NEW  MODEL  * 

^  «****«****•*****************•**«************'****•* 


real*8  sO 

el  «  x(  8,1)  -  x(  1,1)  +  x(  2,1) 
if  (  j  .eq.  1)  then 

funcofx  =  x{  5,1)  *  (x(  4,1)  -  x(  1,1))*  el 

elseif  (  j  .eq.  2)  then 

funcofx  =  x(  6,1)  *  (x(  1,1)  -  x(2,l)) 

elseif  (  j  .eq.  3)  then 

funcofx  =  x(  7  ,1)  *  (x(2,l)  -  x{3,l)) 

else 

c  experimental 

c  print  *, 'Inproper  function  number  called  in  FUNCOFX...' 

c  stop 

c  7/17/89  since  x(4)  is  now  a  •state*,  must  provide  for  its  function 
funcofx  =  0 . OdO 
endif 
RETURN 
END 

subroutine  seq_inject(  no_injections,  inject_time, 

&  concentration,  delta,  sO,  state,  in,n,  time, 

&  max^inject,  sO_original, 

fc  NUH>STATE,  NUM:_PARAM) 

c - 

c  This  routine  sets  the  value  of  sO  to  that  defined  in  the 
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e-e-s 


c  input  data  file  at  a  specified  time  also  specified  in  the 
c  input  data  file.  In  the  method  defined  by  f.  wiseman,  the 
c  actual  value  of  sO  is  set  to  a  value  that  is  increased  by  the 
c  current  value  of  the  states  in  the  output  equation, 
c 

c  functions  called  none 

c  subroutines  called  none 

c 

c  This  specific  routine  is  for  2nd  order  irreversible  oxidation 

(1) /dt  =  a2*{al-x{l)-x(3))*(a5-x{l)+x(2)) 

(2) /dt  =  a3*(x{l)-x(2) ) 

{3)/dt  =  a4*(al-x(l)-x(3))*(x(2)-x(3)) 

c  y  =  al-x{l) -x{3) 

C  UNUSED  AT  THIS  TIME! 

c - 

implicit  none 

integer*4  j,  m,  n 

INTEGER *4  NUM_STATE.  NUM_PARAM 

integer*4  no_in jections 

integer*4  max_inject 

real*8  state (  m,n) 

real*8  sO,  delta,  su_  j.iginal 

real*8  inject_time{  max_inject) 

real*8  concentration (max_inject) 

real*8  time 

if  {  time  .It.  inject_time(  1)  )then 
sO  =  sO_original 
else 

do  100  j  a  1,  no_in jections 

if  ((  time  .ge.  inject_time(  j)  ) .and. 

Sc  (  time  .It.  inject_time{  j)  +  delta))  then 

sO  =  concentration (  j)  +  state {  1,1)  +state{  3,1) 
endif 

100  continue 

endif 

C  print  *,  time,  sO 

return 
end 
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(The  reverse  of  this  page  is  blan)c) 


